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Guten Tag 


In diesem Heft ist end- 
lich der ausführliche 

Test über den PC 1640 
zu lesen. Es ist viel- 
leicht das letzte Thema 
zu diesem MS-DOS- 
Rechner in Schneider 
aktiv, wenn man von der 
einen oder anderen 
Nachricht einmal ab- 
sieht. Das Gerät ist so 
IBM-kompatibel, daß Be- 
richte darüber in die CA 
gehören. Ihnen entgeht 
dadurch nichts, denn die- 
ses PC-Magazin liegt ja 
jeder unserer Ausgaben 
bei. Unser Hauptaugen- 
merk gilt nach wie vor 
dem CPC, der ja zur Zeit 
eine Renaissance erlebt. 
Aber auch zum PC 1512 
werden Sie informiert. 
Schließlich besitzt er eini- 
ge Eigenheiten, über die 
nur eine Schneider-Zeit- 
schrift berichten kann. 
Mal ganz abgesehen vom 
Basic2, für das wir nun 
auch Listings abliefern 
wollen, gibt es auch sonst 
noch Berichtenswertes. 
Aber zurück zum CPC, 
unserem Lieblingskind. 
Er gilt mittlerweile als 
idealer Einsteiger- 
Computer, der auch 
noch extrem ausbaufähig 
ist. Da auch der Preis 
stimmt, rechnet man 
ganz allgemein mit grö- 
ßeren Verkaufszahlen. 
Ob der CPC allerdings ein- 
mal die Millionengrenze 
des Commodore C 64 
erreicht, ist fraglich. 
Schließlich ist er ein biß- 
chen zu spät gestartet, 
den nunmehr erreichten 
Rang kann ihm allerdings 
keiner mehr abnehmen. 
Darauf reagieren auch die 
Softwarehäuser. Keine 
Neuerscheinung, bei der 


nicht auch an eine Schnei- 
der-Version gedacht wird. 
Jüngstes Beispiel — dazu 
ein ausführlicher Test: das 
Spiel „Vermeer”.. Aus 
England kommt für ihn 
neue Anwendersoftware, 
so, als hätten die Briten 
etwas zu spät erkannt, daß 
man mit dem CPC nicht 
nur spielen kann. Der 
Software-Verlag Arnor 
sticht hierbei besonders 
hervor, wir berichteten 

ja schon über Proword, 
und wir werden noch 
mehr von ihm hören. 
Auch wir haben uns dar- 
auf eingestellt, daß nun 

in den Herbsttagen der 
Computer wieder zum 
Hobby-Nummer 1 wird. 
Am Kiosk — und selbst- 
verständlich auch über 
den Verlag — finden Sie 
unser Spezialheft 4/87. 
Die Mischung, die Sie 
darin vorfinden, hat 

sich bereits bewährt. 

Da gibt es eine Menge 
Software-Reviews, die 
diesmal von Sportspielen 
handeln. 

Ob Sie nun Fußball spie- 
len wollen, ohne gleich 
außer Atem zu kommen, 
oder ob Sie mit der 
Rennyacht den Atlantik 
überqueren, für alle Sport- 
arten ist gesorgt. 
Alternativ geht es beim 
Bastelvorschlag zu. Mit 
einer der drei Disketten- 
stationen läßt sich jeder 
Wunsch erfüllen, ob es 
sich nun um ein Erst- oder 
Zweitlaufwerk handelt. 
Höhepunkt ist eine Dis- 
kettenstation mit drei 
Laufwerken! 

Der Hauptteil des Specials 
bietet selbstverständlich 
Listing, von der Anwen- 
dung über Utilities bis 


zum Spiel. Wir haben 
nichts ausgelassen und 
sind sicher, Sie finden das 
richtige CPC-Futter. 
Zum Abschluß noch ein 
wenig Gerüchtesuppe, 
in der wieder mal 
kräftig gerührt wird, ge- 
nascht: In England enga- 
giert sich Amstrad mit dem 
Sinclair Plus 3. Sofort be- 
ginnen natürlich die Spe- 
kulationen, wann und ob 
dieser Homecomputer als 
Schneider-Modell in 
Deutschland zu haben 
sei. Viele vergessen dabei, 
daß der Markt in Großbri- 
tannien doch ein anderer 
ist als der deutsche. Es 
wird mehr gespielt, und 
ein Gerät mit eingebautem 
Diskettenlaufwerk ist im- 
mer noch etwas besonde- 
res. Andererseits hat 
Schneider schon auf die 
Übernahme des Sinclair 
Plus verzichtet, der dem 
CPC 464 zu sehr ähnel- 
te. Warum sollte man 
sich selbst Konkurrenz 
machen? Dies gilt nun 
wohl auch für den Plus 3, 
der wiederum dem CPC 
6128 gleicht. 
Solche Gerüchte entste- 
hen allerdings immer dann, 
wenn eine breite Anhän- 
gerschär eine bestimmte 
Erwartungshaltung hat. 
Und es ist wohl unbestrit- 
ten, daß Schneider etwas 
für die Homecomputer- 
Palette tun muß. Was, 
darüber lohnt es sich nicht, 
zu spekulieren. Vorerst 
sind zu viele Fakten da, 
aus denen sich Alles her- 
leiten läßt. Wenn sich die 
Anzeichen zu einem neu- 
en Schneider-Clou verdich- 
ten, dann können Sie von 
Schneider aktiv erwarten, 
daß wir Sie informieren. 
Bis dahin sollte sich nie- 
mand verunsichern lassen. 
Der CPC bleibt Schneiders 
bester — weil bislang ein- 
ziger — Homecomputer. 
Für die Unterhaltung und 
die Arbeit damit wünscht 
Ihnen die Redaktion viel 
Spaß. 

Gert Seidel 
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Schneider PC 1640: 


TEST 


Als große Überraschung präsentierte Schneider im Sommerloch den PC 
mit EGA-Grafik. Gezwungenermaßen, muß man wohl sagen, denn bei 
dem Gedanken, nunmehr hunderttausend Besitzer des PC 1512 
vor den Kopf zu stoßen, dürfte auch dem Türkheimer Betrieb nicht 
ganz wohl sein. Andererseits ist es unbestritten, daß der PC 1512 besten- 
falls mit einer Hercules-Karte aufzurüsten ist und sich für die Fabrikation 
einer EGA-kompatiblen Grafikkarte kein Hersteller fand. Die Ausbau- 
fähigkeit (bei niedrigen Preisen ein wichtiger Punkt) war stark einge- 
schränkt. Aus England kam deshalb die erste Nachricht vom neuen PC- 
Konzept mit Farbgrafik. Schneider lieferte dazu die entsprechende 
Begründung: Das Ankündigungsverhalten der Mitbewerber führe zur früh- 
zeitigen Vorstellung des EGA-PC. Gemeint waren damit sicherlich die 
Firmen Atari und Commodore, die auch im Bereich der MS-DOS-Computer === 
zu einer Konkurrenz zu werden drohen. Schneider hat es also doch 
wieder einmal geschafft, eine Marktlücke zu entdecken, wenn- 
gleich die Gemeinde der 1512-User verärgert zurückbleibt. Was ist aber 
wirklich neu am 1640? 


Vom einfachsten Modell mit einem 
Laufwerk und monochromen Bild- 
schirm bis zum Spitzengerät mit 
EGA-Monitor und 20 MByte Fest- 
platte ist jede Konfiguration denk- 
bar. Die Preise bewegen sich dabei 
zwischen 1698,— DM und 4498, — 
DM. Bedauerlicherweise ist in dieser 
Rechnung ein Laufwerk mit fast 
500,— DM relativ teuer. Wer also 
auf zwei Diskettenstationen aus ist, 
der sollte die zweite besser über ei- 
nen Fremdhersteller beziehen. Da- 
für scheint Schneider wenig Gewinn 
am Farbmonitor zu machen. In die- 
ser guten Qualität dürfte ein einzel- 
ner Bildschirm nicht unter 1600, — 
DM zu bekommen sein. Empfehlens- 
wert ist also die EGA-Version mit ei- 
nem Laufwerk und der zweiten Dis- 
kettenstation eines anderen Herstel- 
les oder gleich mit einer Festplatte. 
Als Betriebssystem liefert Schneider 
MS-DOS 3.2 mit. Das GEM-Desktop 
und das Zeichenprogramm GEM- 
Paint haben sich bereits beim 1512 


FREI WÄHLBARE 
KONFIGURATION 


bewährt und bleiben auch weiterhin 
im Lieferumfang. Das gleiche läßt 
sich auch über BASIC2 sagen, wobei 
über dieses Produkt aus dem Hause 
Locomotive nicht jeder glücklich war. 
Immerhin werden die Grafikfähigkei- 
ten der Programmiersprache nun 


durch die Leistungsfähigkeit der 
Hardware etwas aufgewertet. Es 

wird auch nicht viele User geben, die 
das DOS-Plus vermissen. Amstrad/ 
Schneider sind von diesem Betriebs- 
system abgekommen, eine spezielle 
Diskette gehört nicht mehr zum Soft- 
warepaket. Als neuer Standard konn- 
te sich das Produkt aus dem Hause 
Digital Research nicht durchsetzen, 
und als Extraleistung geriet Schnei- 
der in den Verdacht, zu anderen Per- 
sonal Computern imkompatibel zu 
sein. 


NEUER VERTRIEBSWEG 


Damit ist das Stichwort für die neue 
Vertriebsstrategie von Schneider 
gegeben. Ein deutscher, vollwertig 
IBM-kompatibler PC, in Luxusaus- | 
stattung, zu niedrigem Preis. Bei den 
Geschäftsbetrieben, vom kleinen 
Handwerker bis zur großen Versi- 
cherung, glaubt die Türkheimer Fir- 
ma die Marktlücke der nächsten 
Jahre zu finden, jedenfalls soweit 

es Europa betrifft. Daß es etwas 
mehr bedarf als der preiswerten 
Grundkonfiguration, hat man 
schon erkannt. Zwar werden die 
EGA-Geräte wie üblich verkauft, 
doch zusätzlich entwickelte man 
einen „Paketservice‘‘. Mit Software 
aus dem Geschäftsbereich — zum 
Beispiel einer Lohnbuchhaltung — 
und einer ausführlichen Beratung 
durch den Händler wird der PC 
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nur geringfügig teurer, erleichtert 
aber die EDV-Einführung in Klein- 
betrieben. Auch die Händler werden 
darüber recht froh sein, denn die 
Beratung und die Software vergrö- 
ßern den Kalkulationsspielraum, 
der im PC-Bereich ansonsten sehr 
zering ist. Allerdings kann auch auf 
lie Software und/oder die Beratung 
verzichtet werden, womit die Frage 
bleibt, ob der Beratungsvertrieb 
überhaupt vom Kunden angenom- 
men wird. 


MEHR SPEICHER IN DER 

GRUNDAUSSTATTUNG — 
WEITERHIN DREI STECK- 
PLÄTZE 


Auch technisch hat sich zum PC 


1512 viel geändert. Zuerst einmal 


wurde der Speicher auf 640 KByte 
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Oben: Weiterhin drei Steckplätze für 
IBM-kompatible Karten 

Unten: Dipschalter für den Grafikmodus 
Links: Äußerlich kaum ein Unterschied 
zwischen dem 1640 (links) und dem 
1512 (rechts) 


ausgebaut, der Preisverfall bei den 
RAM-Bausteinen machte dies mög- 
lich. Ein weiterer Ausbau ist mit 
einer Above-Karte, die eine dazu- 
gehörige Software nötig macht, 
sicherlich möglich. Es gibt jedoch 
kaum Programme für den Alltags- 
gebrauch, die mit 640 KByte nicht 
auskommen. Mit drei Steckplätzen 
für lange Karten ist der Schneider 
PC jedoch auf solche Extrawünsche 
vorbereitet. In der kompakten Zen- 
traleinheit ist der Platz allerdings 
sehr begrenzt. Eine Drivecard sollte 
also vorher genau bedacht werden. 
Sicherlich sind die geringen Abmes- 
sungen zumeist von Vorteil, ein 
paar großzügige Zentimeter hätten 
aber gerade den Steckplätzen gut 
getan. 

Fairerweise muß man dem PC 1640 
allerdings zugute halten, daß er 


kaum noch einer Aufrüstung bedarf. 
Sämtliche Schnittstellen, nicht alle 
nach Norm, sind vorhanden. Paral- 
lel und seriell wird der Anwender 
nicht auf Probleme stoßen. Beim 
Monitor darf man ohnehin nicht an 
ein Fremdgerät denken, denn nach 
wie vor enthält der Schneider-Bild- 
schirm das Netzteil für den ganzen 
Computer. Unverständlich ist die 
Tatsache, daß weder Tastatur- noch 
Mausanschluß der Norm entspre- 
chen. Zwar wird die Schneider-Tasta- 
tur allgemein als angenehm empfun- 
den, doch dies schließt nicht aus, 
daß man auf Fremdzubehör umstei- 
gen will. Gleiches ist auch zur Maus 
zu sagen. 


von 720x546 Bildpunkten herlauodt. 
Dem GEM-Desktop mit seinen relativ 
kleinen Icons kommt die Grafikver- 
besserung natürlich am besten zugute. 
Aber auch in allen anderen Program- 
men — sofern sie mit der Hercules- 
karte zusammenarbeiten — macht sich 
der bessere Bildschirm bemerkbar. 
Man sollte nicht vergessen, daß diese 
(notwendige) Aufrüstung, einschließ- 
lich des Umbaus, bereits für den PC 
1512 für 398,— DM zu haben ist. Die 
konkreten Verbesserungen zeigen sich 
erst in der Konfiguration mit einem 
Farbmonitor. 

Hier sorgt eine CGA-Grafik für eine 
Auflösung von 320x200 Punkten bei 
4 Farben und für 640x200 für 2 Far- 


Die einfachste Konfiguration wird mit ben. Dies sind ausreichende Werte, 
einem Schwarz/Weiß-Bildschirm ausge- wie andere PCs beweisen. Schneider, 
liefert. Zur Anwendung kommt dabei beziehungsweise Amstrad, ging jedoch 
die Hercules-Karte, die eine Auflösung einen Schritt weiter. Der 1640 ist mit 
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einem EGA-Grafikbildschirm ausge- 
rüstet, der 640x350 Punkte produzie- 
ren kann. Die Wahl hat man dabei 
unter 16 Farben. 

All diese Werte besagen relativ wenig, 
solange man sich nicht die Qualität 
des Monitors vor Augen hält. Tatsäch- 
lich liefert das Farbgerät ein Bild ab, 
vor dem sich stundenlang arbeiten 


TEST. 


dann etwas aufgeräumter (z.B. eigene 
Cursortasten) ist. Sollte sich wirk- 
lich jemand finden, der eine Verbin- 
dung herstellt, so werden sich da- 
durch die Zusatzkosten zu diesem 
Peripheriegerät verteuern. Allge- 
mein darf man Schneider dazu raten, 
Kompatibilität etwas konsequenter 
zu betreiben und nicht die Schnitt- 


läßt. Die Darstellung ist scharf, absolut stellen auszuklammern. 


zitter- und ruckfrei und läßt sich noch 
am ehesten mit dem hohen Standard 


des Atari-Monochrommonitors verglei- 


chen. Nur ist dieser eben nicht in 
Farbe. Die mehrfarbige Grafikdarstel- 
lung ist für Schneider also kein 
Problem mehr. 


DIP-SCHALTER FÜR DIE 
GRAFIK-EINSTELLUNG 


Vorausgesetzt, er besitzt die EGA-Va- 


riante des 1640, kann der Anwender 
die Auswahl der Grafikkarte auf 
zweierlei Arten bestimmen. Zum ei- 
nen bleibt ihm natürlich der Weg über 
die Software, indem entweder über 
eine AUTOEXEC-Batchdatei die pas- 
sende Grafik ausgewählt wird, ande- 
rerseits gibt es an der Rückseite der 
Zentraleinheit 10 Dip-Schalter, die 
hardwaremäßig eine Standardeinstel- 
lung erlauben, zur Not aber schnell 
geändert werden können. 

Damit sind wir auch schon beim Be- 
dienungskomfort, zu der die Tastatur 
und die Maus einen wesentlichen Teil 
beitragen. Bleiben wir bei dem ‚‚Roll- 
kugeleingabegerät‘“, zu dem es eini- 
ges zu sagen gibt. Daß der Anschluß 
nicht ganz normgerecht ist, wurde 
bereits erwähnt. Findige Köpfe wer- 
den dazu sicherlich einen Adapter 
anbieten und das ‚‚Problemchen“ ist 
gelöst. Wichtiger ist jedoch die et- 
was unglückliche Formgestaltung. 
Der Mittelsteg stört doch zu sehr 
und das Gerät liegt etwas schlecht in 
der Hand. Zudem muß ein absolut 
glatter Tisch vorhanden sein, sonst 
holpert die Kugel zu stark und die 
Eingaben werden ungenau. Diese 
Kritik ist angebracht, während 

sich über die Tastatur nichts | 
Negatives berichten läßt. Sie ist 

zwar IBM-kompatibel, jedoch nicht 
ganz so unübersichtlich wie das Ori- 
ginal. Der Zehnerblock ist abge- 
setzt, eine zusätzliche Enter- und 
Delete-Taste ist vorhanden und hat 
sich schon beim PC 1512 als prak- 
tisch erwiesen. Die einzelnen Tasten 
haben einen klar definierten Druck- 
punkt, Fehleingaben aus Oberfläch- 
lichkeit sind kaum mehr möglich. 
Allem Lob zum Trotz bleibt wie- 

der der ungenormte Anschluß. Es 
gibt heutzutage die Möglichkeit, ei- 
nen PC mit einer Tastatur eines 
Fremdherstellers auszustatten, die 


AUFGERÄUMTES 
INNENLEBEN 


Schraubt man die Zentraleinheit auf, 
dann erkennt man auf den ersten 
Blick, wo die Neuerungen zu finden 
sind. Besonders überrascht werden 
dabei die Besitzer einer Festplatte, 
findet sich doch darunter ein Venti- 
lator. Bisher hat Schneider den 
Gerüchten um einen möglichen 
Wärmestau energisch widersprochen, 
nun wird die Festplattenversion mit 
Gebläse ausgeliefert. Und das, ob- 
wohl bereits die Zentraleinheit mehr 
Lüftungsschlitze aufweisen kann als 
das Vorgängermodell 1512 und das 
Netzteil nach wie vor im Monitor ist. 
„Also doch!“, ist man da versucht 
zu sagen, sollte jedoch Amstrad/ 
Schneider zugestehen, ein paar Vor- 
sorgemafßnahmen zu treffen. Scha- 
den kann es nicht, zumal man nichts 
von dieser Sondereinrichtung hört, 
und schwerlich sieht. 

Um an den wesentlichen Teil der 
Neuerungen heranzukommen, muß 
man die Disk-Station (oder Festplat- 
te) entfernen, die sich in einem gut 
abgeschirmten Gehäuse verbergen. 
Wie schon beim PC 1512 befindet 
sich dann auf dem Boden der 
Zentraleinheit die Hauptplatine. 
Verantwortlich für die Grafikverbes- 
serung ist der quadratische Chip 

mit dem verheißungsvollen Namen 
„Paradise“. Er greift auf acht RAM- 
Bausteine a 32 KByte zu, verwaltet 
also insgesamt einen Bildschirmspei- 
cher von 256 KByte. 


SICHERHEIT DURCH 
BATTERIEN 


Genau in der Mitte sitzt die 8086 
CPU, die man getrost als echten 
16-Bitter bezeichnen darf. Laut 
Norton läuft der PC 1640 um den 
Faktor 1.8 schneller als sein Vor- 
bild von ‚Big Mother Blue“. Trotz- 
dem kann man ihn noch beschleuni- 
gen, indem man den mathemati- 
schen Co-Prozessor 8087 einsetzt, der 
aber von der Software her angespro- 
chen und gefordert werden muß. 

Ob sich die Ausgabe, zwischen 200,- 
bis 300,— DM, lohnt, hängt also von 
den vorhandenen Programmen ab, 
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und die Gelegenheit dürfte selten 
wahrgenommen werden. 

Schneider warf nicht plötzlich mit 
Geld um sich. Deshalb blieb man bei 
der batteriegepufferten Echtzeit- 
uhr, die den Einbau eines etwas teu- 
reren Akkus ersparte. Zwar ergeben 
sich keine konkreten Nachteile, 
doch haftet einer solchen Lösung 
immer der Makel des Billigen an. 
Der lobenswerte Nebeneffekt, näm- 


SR 


Oben: An der Tastatur ändert sich nur 
der Aufkleber 


lich das Konfigurations-RAM, ist 
allerdings auch geblieben. Hier kön- 
nen die Standardeinstellungen für 
Farbe, RAM-Disc und so weiter dau- 
erhaft untergebracht werden. Am 
Leben gehalten wird das kleine RAM 
von den Batterien. Bei einem Wech- 
sel derselben sind die Parameter ent- 
weder neu einzulesen oder schnell 
durch ein menügesteuertes Programm 
zu erstellen. 


Unten: Neu aber kaum zu finden: Der 
Ventilator der Festplatte 


Angenehm am Schneider PC ist sei- 
ne kompakte Bauweise. Mit einer 
fast quadratischen Grundfläche 
von 37 cm Seitenlänge dürfte das 
Gerät auf jeden Schreibtisch passen. 
Schwierigkeiten wird nur derjenige 
bekommen, der den Monitor nicht 
auf die Zentraleinheit stellt. Die 
Billigversion einer Echtzeit-Uhr, er- 
kenntlich an den Batterien, stört 
dann doch etwas. Genauso mag es 
dem einen oder anderen Käufer mit 
dem Plastikmaterial ergehen. Sicher- 
lich ist die Bauweise stabil und der 
Kunststoff wird den Monitor jeder- 
zeit tragen, doch immer noch fer- 
tigt die Konkurrenz solide Blech- 
kisten. Störstrahlungen mangels 
Abschirmung treten beim 1640 
allerdings nicht auf. 

Daß der Monitor von gehobener 
Qualität ist, wurde bereits erwähnt. 
Bildschärfe und Kontrast sind 
ausgezeichnet. Über das Design läßt 
sich — wie immer — streiten, keiner 
wird jedoch behaupten können, 
daß der ECD-Bildschirm unange- 
nehm auffällt. Mit der Bautiefe hat 
Schneider so eben noch einmal 
Glück gehabt. Steht der Monitor ge- 
rade auf der Zentraleinheit, dann 
ist er genauso tief. Dreht man ihn 
leicht, dann ragt er sogar darüber 
hinaus. 


Dem EGA-PC liegen vier verschie- 
dene Disketten bei, die bereits auf 
einer formatierten Festplatte in- 
stalliert sind, sofern man sich für 
diese Konfiguration entscheidet. 
Dabei geht es im wesentlichen um 
die beiden Betriebssysteme GEM 
und MS-DOS. Letzteres liegt in 
seiner bislang neuesten Version 3.2 
vor und kann zumindest die Befeh- 
le ab Versionsnummer 2 verarbei- 
ten. 

Digital Research steuerte eine Start- 
up-Diskette und das eigentliche 
Desktop bei. Über das Betriebs- 
system ist schon soviel Angenehmes 
geschrieben worden, daß sich weite- 
rer Kommentar erübrigt. Vielleicht 
sind jedoch noch jene Gerüchte im 
Umlauf, nach denen GEM auf dem 
neuen PC nicht korrekt läuft. Lieb- 
haber der Schreibtischsimulation 
können aber beruhigt werden. Es 
gibt schon seit der ersten Ausliefe- 
rung keine Probleme mehr. 

Ganz anders dagegen das BASIC2, 
welches nach wie vor ein paar Feh- 
ler hat. Hier dürften demnächst 


noch ein paar Updates fällig werden. 


Überhaupt vergrößert sich die Ge- 
meinde derer, die mit dem Loco- 
motiv-Dialekt unzufrieden ist, im- 
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mer mehr. Die umständliche Druk- 
keransteuerung und die komplizier- 
te Window-Programmierung sorgte 
bereits beim PC 1512 für Frust. 
Hinzu kommt, daß bislang der 
Schneider PC der einzige IBM-kom- 
patible PC ist, der damit arbeitet. 
Bei den anderen setzte sich GW- 
Basic durch und konnte seine Stel- 
lung durchaus behaupten. Aber 
BASIC2 hat auch positive Seiten. 
Die Orientierung nach Labels (Titel 
für Unterprogramme) statt nach 
Zeilennummern verhindert den ge- 
fürchteten Spaghetti-Code. Der 
Befehlsumfang ist sehr groß und 
trotzdem bleibt der Interpreter 
schnell. 

Sieht man von den MS-DOS-Utilities 
einmal ab, dann bleibt als Anwen- 
derprogramm nur Doodle und das 
Zeichenprogramm GEM Paint. 
Ersteres darf wohl nicht ernstge- 
nommen werden, es sei denn, je- 
mand will sich im ‚„‚Mausrollen“ 
üben. Mit GEM Paint lassen sich da- 
gegen ganz ansehnliche Grafiken 
erstellen, wovon das mitgelieferte 
Tigerbild ein Beispiel ablegen kann. 


Nach dem PC 1640 darf der 1512 
wohl nur noch als Versuch eines 
PCs bezeichnet werden. Erst jetzt, 
nachdem Amstrad auf die eigene 
Grafikkarte verzichtet hat, stimmt 
die Bildschirmauflösung. Zudem 
bleibt man mit den Grafikkarten im 
abgesteckten und genormten Be- 
reich. Die Käufer des 1640 werden 
kaum noch inkompatible Software 
auftreiben können. Monitor, Dis- 
kettenlaufwerke, Tastatur und Be- 
triebssystem — es würde einfach 
alles stimmen, wenn wieder nicht 
ein paar „Schneider-Eigenheiten“ 
zu finden wären. Eigene Anschluß- 
buchsen für Maus und Tastatur, 
batteriegepufferte Echtzeituhr und 
Konfigurations-RAM sowie das im 
Monitor untergebrachte Netzteil 
vergällen zwar nicht den Spaß am 
neuen PC, werfen aber kleine 
Schatten auf einen hervorragenden 
Computer. 

Solange allerdings der Preis stimmt 
und eventuell auftretender Konkur- 
renz gegenüber auch angepaßt wird, 
wird sich der EGA-PC durchsetzen. 
Noch bevor also die Türkheimer 
Firma im Herbst dieses Jahres mit 
einem AT auftritt, hat sie es gerade 
noch rechtzeitig geschafft, einen 
brauchbaren PC herzustellen. Man 
darf gespannt sein, wann der Ver- 
kaufserfolg von 100 000 Stück des 
PC 1512 überflügelt ist. 


schneider | TEST 


> die geringsen Schwierigkeiten, das 
Vermeer " Arbeiten (Spielen) und die Über- 


sicht werden sogar erheblich er- 
WW N N # a) r Sn r leichtert. Zu vielen Funktionen gibt 
es eine grafische Untermalung. So 
wird beispielsweise beim Punkt 
Eu „Reisen‘ eine sehr gute Weltkarte 
a 174 A ER ut wı Pr | mit allen wichtigen Städten einge- 
| blendet. Mit den Cursortasten oder 
dem Joystick können nun einzelne 


Städte angewählt werden. Es ist 
aber nicht möglich, von einer Stadt, 


Die Geschichte von Vermeer spielt im Jahre 1918. die keinen Hafen hat. nach Übersee 
Der 1. Weltkrieg läuft auf vollen Touren. Eines Tages wird auf einem zu reisen. In diesem Fall muß zu- 
Transport eine der wertvollsten Kunstsammlungen Europas geklaut... erst mit dem Zug zu einem Hafen 


Diese Kunstsammlung gehört ausge- 
rechnet Ihrem steinreichen Onkel. 
Am Neujahrstag 1918 werden Sie, 
als künftiger Erbe, auf die Residenz 
des Onkels gerufen. Er macht Ihnen 
klar, daß sein Nachfolger nicht nur 
mit Plantagen und anderen Geldan- 
lagen gut umgehen können müsse, 
sondern auch fähig sein sollte, die 
geklauten Kunstwerke wieder zu 
beschaffen. 

Der einzige Hinweis Ihres Onkels 
führt zu einem gewissen Vico Ver- 
meer (daher auch der Name des 
Spiels), seines Zeichens bester Kunst- 
fälscher der Welt. 

Die Aufgabe des Spielers ist es nun, 
durch geschickte Transaktionen mit 
Kaffee, Tee und anderen Köstlich- 
keiten soviel Geld wie möglich zu 
machen und jede Chance zu nutzen, 
die Gemälde wieder zu ergattern. 
Durch Börsenspekulationen kann 
der Gewinn um das Vielfache ge- 
steigert werden — natürlich nur, 

Sie ein guter Börsenspekulant 
sind. 

Der Ausgangspunkt ist Berlin. Von 
dort aus kann der Spieler fast alle 
wichtigen Städte der Welt anfahren, 
die Palette reicht von New York 
über Abidjan bis London. Hier 
kann er an Auktionen teilnehmen 
(die einzige Chance, die geklauten 
Gemälde wieder zu erlangen), Plan- 
tagen bebauen und sie wieder ver- 
kaufen. 

Nun zum Spiel. Nach dem Laden er- 
scheint zuerst ein etwas mageres 
Titelbild, das ein blinzelndes Kunst- 
werk darstellen soll. Erst dann, 
nach geraumer Ladezeit, meldet sich 
der Bildschirm mit dem Anfangs- 
menü. 


VIELE FUNKTIONEN MIT 
WINDOWTECHNIK UND 
GRAFISCHER UNTERMALUNG 


Von hier aus kann man sehr viele 
verschiedene Funktionen aufrufen. 
Alle Auswahlmenüs werden in ein- 
zelnen Windows dargestellt. Der 
Umgang mit ihnen bereitet nicht Aus Kunst wird Kapital: Vermeers Bilder 


gefahren werden. Und das kostet... 
Während man nun in der Welt um- 
herreist. wird einem ständig mitge- 
teilt. wann und wo die nächste Auk- 
tion stattfindet (auch diese Szenen 
werden mit einer schönen Grafik 
dekoriert) und es ist möglich. eines 
der geliebten Kunstwerke zu erstei- 
gern. In diesem Fall ist allerdings 
Vorsicht geboten, sonst hat man 
sehr schnell eine Fälschung erstan- 
den. Am Ende jedes Monats erfährt 
man die jeweiligen Börsenkurse und 
Inflationsraten (zur damaligen Zeit 
sehr niedrig). Die Spielanleitung ist 
zwar enorm lang und ausführlich. 
aber auch bitter nötig. Ohne sie ist 
man nach kurzer Zeit aufgeschmis- 
sen und versinkt regelrecht in 
Schulden. 


HOHE VERARBEITUNGS- 
GESCHWINDIGKEIT UND 


BEDIENUNGSFREUNDLICHKEIT 


Der Aufbau von Grafik und Win- 
dows erfolgt ohne Verzögerung. 
Manchmal werden Windows überla- 
gert, was einige gute Effekte birgt. 
Überhaupt wird mit den Windows 
recht spielerisch umgegangen. beim 
CPC eigentlich eine Seltenheit. 
Einige Fenster beinhalten nur Text. 
der übrigens in Deutsch geschrieben 
ist, während in anderen wiederum 
lebendige Grafiken zu sehen sind. 
Auch Eingaben von Joystick oder 
Tastatur werden sofort ausgewer- 
tet und in die Tat umgesetzt. Da es 
wohl kaum jemandem gelingen wird. 
das Spiel an einem Tag zu schaften. 
existiert auch eine Option zum Ab- 
speichern des Spielstandes. 


SCHLECHTER SOUND 


Der Sound ist allerdings nicht über- 


ragend. Aufßser einem langweiligen 
Pieps bei der Menüauswahl be- 
kommt der Spieler nicht den gering- 
sten Ton zu hören. Hätte man et- 
was mehr Wert auf die musikali- 
sche Untermalung gelegt. wäre die 
Gefahr, dafs Vermeer auf die Dauer 
zu trocken wird. erheblich geringer. 
Vor dem ersten Spiel ist es unbe- 
dingt ratsam. die Anleitung durchzu- 
lesen. Sie wirkt auf den ersten Blick 
aufgrund ihrer Länge und Ausführ- 
lichkeit zwar etwas abschreckend. 
Trotzdem ist es nicht möglich. 
„Vermeer‘ ohne sie völlig durchzu- 
spielen, da in ihr viele Hinweise 
versteckt sind. Aufserdem enthielt 
unsere Version noch eine Abbil- 
dung verschiedener Gemälde — dar- 
unter auch Fälschungen -— von be- 
rühmten Künstlern (und Kunst- 
fälschern). Es ist zu hoffen. dafs das 
auch bei der endgültigen Version 
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der Fall ist. denn die Packungsbei- 
lagen tragen ebenfalls zum Kopier- 
schutz bei. 

Trotz der hohen Komplexität des 


Spiels ist die Motivation nicht gering. 


Es kann sehr viel Spafs machen. 
durch die Börsen der Welt zu wan- 
dern und auf die Jagd nach Geld 
und Kunstwerken zu gehen. Hierbei 
muls erwähnt werden. dals Vermeer 
nicht gerade einfach ist. Besonders 
am Anfang hat man mit gröfsten 
Schwierigkeiten zu kämpfen. Einen 
Spieler. der sich im Sektor Geld- 
geschäfte nicht gut auskennt. kann 
das leicht zur Verzweiflung bringen. 
Was unter Umständen dazu führt, 
dafs die Diskette (Kassette) mit dem 
Spiel auf (Nimmer-)Wiedersehen 

im Regal verschwindet. 


FAZIT 


Vermeer ist ein Spiel der Klasse 
„Kaiser“ und .‚Hanse‘‘. übertrifft 
diese aber um Längen. Durch seine 
Bedienungsfreundlichkeit und 
Komplexität spricht es besonders 
diejenigen an. die schon immer wis- 
sen wollten, wie es auf den Geld- 
märkten der Erde zugeht. Trotzdem 
mufs es noch lange nicht jedem ge- 
fallen. Es ist durchaus Geschmacks- 
sache. ob jemand ein Handels- 


Strategie-Spiel. und sei 2s noch so 
bedienerfreundlich und kompliziert, 
spielen will. Wie oben erwähnt. be- 
steht allerdings nach längerem Spie- 
len die Gefahr, dafs es eintönig wird. 
Dennoch: Vermeer ist bisher das 
beste Spiel in dieser Klasse auf dem 
Markt. Wer ein wirklich gutes Wirt- 
schaftsspiel sucht. der kommt an 
Vermeer nicht vorbei. 


Grafik 


Turm Ta 


25% 50% 
Von arlolasoft 


75% 


Der Preis des Spiels läist einen aber 
schon vor dem Kauf ins Kalkulie- 
ren kommen, denn 59,95 DM für 
die Diskettenversion und 39.95 DM 
für Kassette ist nicht gerade billig. 
Vermeer ist seit August im Vertrieb 
von Ariolasoft auf dem deutschen 
Softwaremarkt. 

Michael Nebauer 


Hybrid: 


Aller guien 
Dinge sind Drei 


Wer kennt dieses alte Sprichwort 
„Aller guten Dinge sind drei’ nicht? 
In dem Action-Spiel „‚Hybrid‘’ be- 
wahrheitet es sich immer wieder 
neu. Wenn auch in einer etwas ande- 
ren Form. Denn diesmal sind drei 
Roboter gemeint, die zusammen- 
genommen eine nahezu unbezwing- 
bare Einheit darstellen. Und über 
diese drei Roboter haben Sie 

die Kontrolle! 


Die Rahmenstory ist bei diesem 
Spiel eher nebensächlich. Es geht 
mal wieder um die Bekämpfung ein- 
gedrungener Außsrirdischer. die un- 
gebeten und allzu aufdringlich auf 
die Erde gekommen sind, um hier 
ihr Unheil anzurichten. Dazu haben 
sie eine Station aufgebaut, mit den 
raffiniertesten Abwehrwaffen und 
hinterlistigsten Fallen, um die Ter- 
raner zu zerstäuben, die sich der 
Station nähern. 

Aber gerade rechtzeitig ist die Pro- 
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duktion von terrestrischen Robotern 
angelaufen. Und die ersten drei Pro- 
totypen werden nun eingesetzt, in 
diese Station einzudringen und die 
Invasoren zu vernichten. 


DREI ROBOTER: 
DREI STRATEGEN 


Jeder der drei Roboter aus der neuen 
Produktionsreihe hat seine ganz spe- 
zifischen Eigenheiten und Stärken. 
Da ist zum ersten eine Kampfmaschi- 
ne, die es in sich hat. Seiner Kraft 
können auch die Außerirdischen 
kaum etwas entgegensetzen, er ist 
fast unbezwingbar und walzt alles 
nieder, was sich ihm entgegenstellt. 
Vergleichbar ist er mit Kung Fu, 
Arnold Schwarzenegger und Tarzan 
in einer Person. Wenn er schießt, 

so lösen sich die Abwehrstationen 
und automatischen Fallen in 

Rauch auf. 

Zum zweiten haben Sie einen Robo- 
ter zur Verfügung, der der Sprinter 2» 


unter den dreien ist. Sehr schnell 
und sehr beweglich, ist er ideal, um 
Erkundigungen anzustellen und den 
gegnerischen Schüssen durch seine 
Schnelligkeit auszuweichen. Er hat 


allerdings auch seine schwache Seite. 


Er kann zwar, wie die anderen drei, 
schießen, doch die Durchschlags- 
kraft seiner Munition läfst zu wün- 
schen übrig. Dafür hat er eine Fähig- 
keit, die unter Robotern doch recht 
selten ist: Er kann nämlich telepor- 
tieren und so die feindlichen Ab- 
wehrbatterien umgehen. 

Nummer drei ist dafür gebaut, stän- 
dig und mit unglaublicher Schnellig- 
keit zu schießen. Er kann dafür sor- 
gen, die Gegner unter einem Feuer- 
hagel zusammenbrechen zu lassen. 
Aufserdem hat er von seinen Kon- 
strukteuren das Talent mitbekom- 
men, Brücken zu bauen. Diese prak- 
tische Seite ist nicht zu unterschät- 
zen. Manchmal ist kaum ein Ausweg 
aus einem Gang oder einem Raum 
zu finden. Wenn dann der „Brücken- 
bauer‘ eingesett wird, geht die Jagd 
nach den Eindringlingen weiter. 


ZUSAMMEN SIND DIE 
DREI UNBESIEGBAR! 


Wenn Sie nun systematisch und ge- 


schickt alle drei in der jeweiligen 
Situation einsetzen. so dürften Sie 
die Ihnen gestellte Aufgabe nach 
einiger Übung lösen können. 
Sie können nämlich im Verlauf des 
Spieles zwischen diesen drei Kampf- 
maschinen ständig umschalten und 
jeweils den Roboter aufrufen. der 
gerade benötigt wird. Aber achten 
Sie darauf, dafs die drei nicht allzu- 
weit auseinander positioniert sind. 
Dann stellen sie ein Team dar. das 
sich bestens ergänzt und unschlag- 
bar ist unter der Voraussetzung. 
daß Sie ständig unter Kontrolle 
gehalten werden. Und das ist garan- 
tiert nicht einfach! Aber leicht soll 
„Hybrid“ ja auch nicht sein! 


DEFINIEREN SIE DIE TASTEN 


MIT BEDACHT! 


Nach dem Start des Spieles haben 
Sie die Möglichkeit. die Tasten um- 
zudefinieren: Neben den Bewe- 
gungsrichtungen und der Feuer- 
Taste auch noch einige Sonderta- 
sten. Und zwar die Energie-, Telex-, 
Quit-, Pause- und die Aufruftasten 
für die drei Roboter. Beim Test des 
Spiels hat sich bewährt, die Roboter 
mit den Tasten fl, f2 und f3 aufzu- 
rufen. Für die Pausenfunktion wäh- 
len Sie am besten Q. für die Pause 
P. Die Energie- und Telexfunktion 
können Sie nach Belieben definie- 
ren. Die Telexfunktion ist übrigens 
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die Taste zum Teleportieren, aller- 
dings wirkt sie nur, wenn gerade der 
entsprechende Roboter aktiv ist. 
Aber diese Feinheiten des Spiels 
machen gerade seinen Reiz aus. 


SEHR GUTE GRAFISCHE 
GESTALTUNG 


Wenn Sie sich nun ins Kampfgetüm- 
mel stürzen, so werden Sie über- 
rascht sein, zu welch guter Grafik 
der CPC fähig ist. Jedes Detail die- 
ser Station ist sorgfältig gestaltet 
und sorgt immer wieder für 
Erstaunen. Und dies in über zwei- 
hundert Räumen. 

In jedem dieser zweihundert Räu- 
men lauern Gefahren für Ihre drei 
„Schützlinge‘‘. Automatische Waf- 
fen und Abwehrdroiden versuchen 
ständig, sie zu vernichten. Da gibt es 
Feststationen, die wie wild um sich 
schießen, und kleinere Gebilde, die, 
wenn man sich ihnen unvorsichtig 
nähert, ein Leben kosten. Und diese 
Leben sind kostbar. Jeder drei drei 
Roboter hat beim Start vier Leben. 
Hat einer ein Leben verloren, brau- 
chen Sie jedoch nicht zu verzweifeln 


EIN LEBEN VERLOREN? 
SUCHEN SIE EIN "E"! 


In den Gängen und Räumen finden 
Sie ab und zu einen Buchstaben. 

So zum Beispiel ein “E“, “F" und 
ein "A°. Wenn dieser Fall eintritt, 
dann nichts wie hin! Ein “E“ bringt 
Ihnen ein Leben (des jeweilig akti- 
ven Roboters) zurück: ein "A“ 
sorgt für die Erhöhung der Roboter- 
schutzschilder. Einfach darüber- 
fahren! Wozu das “F“ dient. müs- 
sen Sie allerdings selbst herausfin- 
den. denn alles soll hier nicht verra- 
ten werden! 

Bei Ihren Streifzügen kommen Sie 
manchmal an eine Barriere, die an 
eine Rohrleitung erinnert. An be- 
stimmten Stellen, die markiert sind, 
kann der „Brückenbauer“ für einen 
Durchgang sorgen. Allerdings nur, 
wenn er vorher ein weilses Kreuz 
aufgenommen hat. Also immer wie- 
der die Umgebung betrachten. die 
Roboter zusammenhalten. und 
dann geht's weiter! 

Dann gibt es noch Türen. die. wenn 
sie offen sind. für den Übergang in 
einen anderen Level dienen. Dort 
werden Sie sofort heftig angegriffen. 
Seien Sie auf der Hut! Die Türen 
sind allerdings verschieden grofs und 
die Roboter können nur durch die 
Türen gehen. die ihrer Körpergröfse 
angepaßt sind. 

Wenn Sie für dieses Spiel. das sich 
aus der Masse hervorhebt. kaufen 
wollen, müssen Sie DM 29,95 für 
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Vielversprechende Dynamik im Titelbild 
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die Kassette oder 44,95 für die Dis- 
kettenversion hinlegen. Nicht gera- 
de billig, aber im Vergleich zu den 
sonstigen Spielen keine unnütze Aus- 
gabe. Und wenn es Ihnen zu teuer 
scheint, lassen Sie es sich schenken. 
Bald ist ja Weihnachten und manch’ 
einer sucht noch nach einem Ge- 
schenk für Sie! 

Sie erhalten dann ein Spiel mit sehr 
guter Grafik und hervorragender 
Farbgebung. Der Sound, der sich 
am Anfang ganz nett anhört, geht 
einem allerdings nach einigen Spie- 
len auf die Nerven. Zum Glück 
kann man ihn abschalten! Anson- 
sten hören Sie die normalen Ak- 
tionsgeräusche. 

Ein Spiel, das Reaktionsfähigkeit 
und Schnelligkeit verlang und stän- 
dig für Überraschungen sorgt. 


(JE) 


MAG MAX: 

Die 

letzte 
Waffe 

der 
Mensch- 
heit 

Zaxxon heißt das große Vorbild, 
an dem sich alle dreidimensionalen 
Flug- und Schießspiele messen 
müssen. Imagine versuchte es wie- 
der einmal, mit Mag Max etwas 
Neues auf den Markt zu bringen. 
Man war sich sicherlich bewußt, daß 
diese Spiele nicht mehr so sehr in 
Mode sind und versuchte, durch 


eine gute Hintergrundstory mehr 
Kunden anzusprechen 


In der letzten Zeit, kurz vor Welt- 
untergang, entwickelten die Über- 
lebenden eines Alien-Angriffes eine 
schreckliche Waffe: den Kampf- 
roboter Mag Max. Mit dieser Maschi- 
ne sollte es möglich sein, sich der 
weiteren Angriffe von Außerirdi- 
schen zu erwehren. Schlietslich 
kommt es auch wieder zu einem 
Alarm, und die Eliteeinheit, das 
SCI-Corps, macht sich daran, den 
Prototypen fertigzustellen. Und 
gerade als die letzte Schraube ange- 
schraubt und man dabei ist, auf den 
Erfolg zu trinken, passiert es: Die 
Aliens holen zu einem vernichten- 
den Schlag aus und das Gelände des 
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SCI-Corps wird in einem dramati- 
schen Laserkampf dem Erdboden 
gleichgemacht. Mag Max wird in tau- 
send Einzelteile zerschossen, aber 
noch funktioniert etwas in ihm. 
Und so fliegt nun die Zentraleinheit 
über die Kontinente, um seine Be- 
standteile einzusammeln. Er ge- 
winnt dabei zusehends an Stärke, 
Schnelligkeit und Feuerkraft, um 
schließlich seinen Auftrag ausführen 
zu können: den Gegenangriff auf 
die Aliens. 

Damit ist die Aufgabe des Spielers 
klar. Er mufs Mag Max über die Erd- 
oberfläche und durch Höhlen fliegen, 
um alle Bestandteile zu suchen, die 
den Kampfroboter gefährlich ma- 
chen. Zu Beginn ist er nur mit ei- 
nem Superlaser bewaffnet, der aller- 
dings schon für einen Großteil der 
Außerirdischen ausreicht. Andere 
wiederum können nur mit Waffen- 
systemen vernichtet werden, die man 
während der gefährlichen Reise erst 
finden und einsammeln muß. Am 
Ende jedes Levels kommt es schliefs- 
lich zu einem Entscheidungskampf 
mit dem Führer der Aliens, der erst 
vernichtet werden muß, bevor die 
nächste Runde gedreht werden 
kann. 


EXAKTE STEUERUNG 
UND SCHNELLE GRAFIK 


Die Steuerung von Mag Max er- 
folgt sehr exakt über Joystick, aller- 
dings mulfs sehr genau gezielt werden, 
um einen Treffer zu landen. Um ei- 
nigermalsen sicher zu sein, sollte man 
sich in der Bildschirmmitte halten. 
Hier hat man die nötige Bewegungs- 
freiheit, um auszuweichen oder ge- 
genüber den Bunkerbefestigungen 
einen Zickzack-Kurs einzuschlagen. 
Wenn man ein dreidimensionales Be- 
wegungsspiel einmal nicht in der 
Vektorgrafik programmiert, dann 
mufßs man natürlich Abstriche ma- 
chen. Da am Spieltempo nicht ge- 
spart werden sollte, verzichteten die 
Programmierer von Imagine lieber 
auf eine detaillierte Grafik. Mag Max 
selbst ist als einfaches Raumschiff 
Sprite gestaltet, die Außerirdischen 
sind unbeweglich. Die Sparsamkeit 
wirkt sich letztlich jedoch auf die 
Motivation aus, das Spiel wird 
schnell langweilig. 
Dem Sound gilt jedoch ein großes 
Lob. Fetzige Rockrhythmen klingen 
aus dem Mini-Lautsprecher des 
Schneider. Sie sind so gut gelungen, 
daß es sich schon wieder lohnt, die 
Stereoanlage anzuschließen. 
Insgesamt darf man Mag Max wohl 
nur dem Liebhaber dieses Spiel- 
genres empfehlen. 

(GS/C. Borgmeier) 


TIPS & TRICKS (7/87) 


HARDCOPY MUSS 
NACHTRÄGLICH 


EINGEFÜGT WERDEN 


Im Heft 7/87, das übri- 
gens fälschlich als Juni- 
Heft deklariert ist, ist 
unter Tips & Tricks ein 
Listing aufgeführt, mit 
dem man den komplet- 
ten Zeichensatz von 
chr$(32) bis chr$(255) 
in Postkartengröße auf 
den Drucker ausgeben 
kann. Auf das Komman- 
do RUN wird der Zei- 
chensatz in mehreren 
Kolonnen auf den Bild- 
schirm ausgegeben. Aber 
von Drucken keine Rede. 
Es ist ja auch nirgends 
der PRINT#8-Befehl im 
Programm. Ich habe den 
Befehl in Zeile 1050 
statt dem einfachen 
PRINT eingegeben, mit 
dem Erfolg, daß der Druk- 
ker nun lief, aber alle 
Zeichen untereinander 
bringt. 

Es soll noch Leute geben, 
die nicht mit dem Com- 
puter auf die Welt gekom- 
men sind, und man sollte 
deshalb das Versprechen 
„in Postkartengröße‘“ 
auch mit einem entspre- 
chenden Listing einlösen. 
Bitte teilen Sie mir zu 
dem Tip auch den Trick 
mit. 

Dipl.-Ing. F. Schmitz, 
Heidesheim 


Den Trick haben wir so- 
wohl im Begleittext als 
auch im Listing aufge- 
führt. Es muß lediglich 
eine Hardcopyroutine 
zum Ausdruck benutzt 
werden. Aus Gründen, 
die schon mehrfach auf- 
geführt wurden, verzich- 
ten wir darauf, zu jedem 
Programm ein solches 
Utility abzudrucken. 
Demnächst werden wir 
noch einmal eine solche 
Druckausgabe als Listing 
bringen. 


SPIELETEST — 
OBJEKTIV ODER 
MEINUNGSMACHE? 


Grundsätzlich bin ich der 


Ansicht, dafs auch bei 
Softwaretests die persön- 
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liche Meinung des Testers 
in die Gesamtwertung 
einfliefst. Dies läßt sich 
nicht vermeiden, dessen 
bin ich mir bewußt. Aber 
dals geradezu Lobeshym- 
nen auf ein Spiel gesun- 
gen werden, das deren be- 
stimmt nicht durch und 
durch wert ist, das geht 
doch zu weit. Die Rede ist 
von Ihrem Test ‚Reisen- 
de im Wind‘. Bezüglich 
der hervorragenden Grafik 
und der Idee des Spieles, 
der Realisation und des 
Sounds läßt sich nichts 
Negatives behaupten. Aber 
in diesem Bericht einfach 
eine Zusammenfassung 


alle möglichen Reaktio- 
nen der Figuren durch- 
probiert. Und das alles 
zum Preis von 89,95. 
Nein. das kann doch 
wohl nicht sein. Ihr 
Tester lief sich von der 
Aufmachung, der Grafik, 
dem Sound etc. des Spie- 
les vom eigentlichen In- 
halt ablenken. Denn an 
diese Faktoren kommen 
nur wenige Programme 
heran. Wie gesagt, das 
Spiel ist von seinem Sinn 
her den Preis nicht wert, 
für 50,— DM könnte man 
darüber anders denken. 
Nur ärgere ich mich, daß 
ich jetzt (allein auf 
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Postfach 1161 
D-8044 
Unterschleißheim 


der Spielregeln zu brin- 
gen, das geht m.E. erheb- 
lich zu weit. 

Ihr Tester war der An- 
sicht, dafs dieses Spiel 
nicht so leicht wie „Die 
Erbschaft‘ zu beenden 
ist. Nun gut, vielleicht ist 
dem wirklich so, ich ken- 
ne die Erbschaft nicht. 
Sollte dies aber so sein, 
so möchte ich dieses Spiel 
auch gar nicht erst ken- 
nenlernen. ‚Reisende im 
Wind“ ist das erste Ad- 
venture, das mir je unter- 
gekommen ist. Nach 90 
Minuten (!) war alles vor- 
bei, ich war am Ziel mei- 
ner Wünsche. Oder auch 
nicht, denn ein richtiges 
Ende hat dieses Spiel 
nicht. Es scheint, daß 
irgendwann eine Fortset- 
zung erscheinen wird. 
Jedenfalls habe ich nach 
den besagten 90 Minuten 


Grund Ihres Tests) fast 
90,—- DM für 90 Minuten 
Zeitvertreib ausgegeben 
habe. Das muß doch wirk- 
lich nicht sein. 

Für eine eventuelle Stel- 
lungnahme des Testers 
oder der Redaktion wäre 
ich (auch im Rahmen 
der Fairness) dankbar. 
Bernd Schulz, 

Duisburg 


Daß Spieletests immer 
ein wenig subjektiv sind, 
ist unumstritten. Natür- 
lich muß ein Adventure 
von jemandem getestet 
werden, dem dieses 
Genre nicht fremd ist. 
Wie Sie selbst schreiben, 
istan Spielidee, deren 
Umsetzung, Sound und 
Grafik nichts auszuset- 
zen. Wegen der völlig 
neuen Bedienungsv,eise 
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enthält der Spielbericht 
natürlich auch eine Schil- 
derung derselben. Wir 
glauben schon, daß wir 
mehrfach darauf hinge- 
wiesen haben, daß es weni- 
ger um ein Allerweltsrät- 
sel, sondern mehr um ei- 
ne neuartige Spiellogik 
geht. Es sollte eben mal 
keine Prinzessin gesucht 
werden, sondern es galt, 
Regie zu führen. Daß man 
„Reisende im Wind" in 
90 Minuten spielen kann, 
soll unbestritten sein. 
Auch daß 90,— DM hart 
an der Schmerzgrenze lie- 
gen, können wir bestäti- 
gen. Die Rechnung, daß 
der Spielwert eines Ad- 
ventures um so höher liegt, 
je länger man daran zu 
rätseln hat, wollen wir 
aber lieber nicht nachvoll- 
ziehen. 


WANN HILFT DER 
TRON-BEFEHL? 


Ich habe ein Problem 

mit dem Programm 
Cricks aus dem Spezial- 
heft 2/87. Nachdem ich 
die beiden Teile des Pro- 
grammes vorschriftsmä- 
Sig und in der angegebe- 
nen Reihenfolge abge- 
tippt, abgespeichert und 
mit RUN“ CRIKS gestar- 
tet habe, wurde nach 
Eingabe von “S“ im Me- 
nü nur noch der Rahmen 
und die Score-Anzeige ab- 
gebildet. Nach mehrmali- 
gen Überprüfungen des 
Listings habe ich den Be- 
fehl TRON eingegeben. 
Dabei stellte ich fest, daß 
das Programm in Zeile 
670 unterbrochen wurde. 
In beiden Fällen, mit und 
ohne TRON, wurde die 
Funktion der ESCAPE- 
Taste außer Kraft gesetzt 
und der Computer konn- 
te nur noch zurückgesetzt 
werden. Nun frage ich 
Sie, ob Sie mir bei der 
Lösung Ihres Problemes 
helfen können. 

Harald Hasse, 

Burgdorf 


In Ihrem Fall kann der 
TRON-Befehl leider nicht 
weiterhelfen, bzw. er ver- 
rät nicht mehr, als er be- 
reits getan hat. In Zeile 
670 des Hauptprogram- 


mes wird das Maschinen- 
programm aufgerufen, 
welches mit dem ersten 
Teil des Cricks-Listings 
erstellt und generiert wur- 
de. In diesen Data-Zeilen 
sitzt auch der Tippfehler. 
Allerdings ist er nicht so 
groß, daß es zu einem 
knallharten Syntax Error 
reicht. Solch ein Fehler 
wäre schnell gefunden. 
Wahrscheinlich haben Sie 
nur ein paar Zahlen falsch 
eingegeben, so daß zwar 
ein Maschinenprogramm 
erzeugt werden kann, 
aber kein korrekt funktio- 
nierendes. Dies zeigt sich 
dann aber erst im Haupt- 
programm, wenn es mit 
CALL & 7015 gestartet 
werden soll. So leid es uns 
tut, Sie müssen das den 
Basic-Lader für Cricks 
noch einmal Zeile für Zei- 
le vergleichen. 


PROGRAMM-ABDRUCK 


JA, ABER WANN? 


Es war einmal ein armer 
Computerfreak (das bin 
ich), der hat im Schwarz- 
wald gewohnt, und wie 

er so ganz alleine war, da 
hat er sich hinter sein 
Lieblingsspielzeug (das ist 
sein Computer) geklemmt 
und hat ein paar Program- 
me zusammengewerkelt. 
In der Hoffnung auf ein 
paar schnell verdiente 
Mark hat er dann zu je- 
dem Programm eine Be- 
schreibung geschrieben, 
hat anschliefsend die Dis- 
kette und das Übrige 
schön verpackt und 

das Ganze einem Ver- 

lag (das sind Sie) zum Ab- 
druck in einer Zeitung ge- 
schickt. Die netten Leute 
vom Verlag (das sind wie- 
der Sie) haben sich alles 
angesehen und dann mit 
der Mitteilung, eines der 
Programme abdrucken 

zu wollen (dabei handelt 
essich um Roulette), wie- 
der an den armen Compu- 
terfreak zurückgeschickt. 
In dem Brief stand dann 
auch noch, die Leute 

vom Verlag würden sich 
wieder melden, der arme 
Computerfreak solle nur 
Geduld haben. Und der 
arme Computerfreak war- 
.tete und wartete und 
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wenn er nicht gestorben 
ist, dann wartet er noch 
heute. 
Das klingt ein bifschen 
wie ein selbsterfundenes 
Märchen, es ist aber nack- 
te Realität. Ich warte nun 
schon seit Monaten und 
lebe jeden Tag mit der 
Hoffnung, Sie würden sich 
melden. Bitte teilen Sie 
mir den Stand der Dinge 
mit, ich habe nämlich in- 
zwischen schon wieder 
neue Programme zuwege 
gebracht, die ich Ihnen 
gerne anbieten möchte. 
jan Blezinger, 

olzschlag 


Es war einmal ein armer, 


Eines Tages aber geschah 
etwas Wunderbares: Der 
Zwerg Allwissend kam 
und flüsterte dem Pro- 
grammredakteur ein: 
„Hinter den sieben Ber- 
gen im Schwarzwald, 
wohnt ein einsamer, ar- 
mer Programmierer. 
Nimm halt sein Programm 
als nächstes.‘ Und so 
geschah es. Das Listing 
wurde für die Nummer 10 
an den Layouter weiter- 
gegeben. Und wenn nichts 
Unvorhergesehenes ge- 
schah, dann hatte das 
lange Warten ein Ende. 
Was sich da wie der zwei- 
te Teil eines modernen 
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HOTLINE 


Jeden Montag 15-19 Uhr 
(ausgenommen 
an Feiertagen) 


Tel. 


089/ 


184023 


geplagter Programmre- 
dakteur (das sind wir), 
dem flatterten jeden Tag 
Leserprogramme auf den 
Tisch. Mal war eins gut 
(das sind Ihre), mal war 
eins weniger gut (das sind 
natürlich andere). Manch- 
mal waren sie fehlerhaft 
und manchmal liefen sie 
einwandfrei. Und wenn 
es sich dann noch zum 
Abdruck eignete, dann 
kannte seine Freude keine 
Grenzen. Sofort setzte 

er sich hin und ließ dem 
Autor eine Zusage zukom- 
men. Leider lagen aber 
so viele Programme vor, 
daß er noch keinen Ter- 
min für den Abdruck mit- 
teilen konnte. Da befrag- 
te er eine gute Fee, aber 
die zuckte die Achseln 
und wisperte geheimnis- 
voll: „„Wer weiß das 
schon?“ 


Die wichtigste Telefonnummer 
bei Programmsorgen 


Märchens liest, ist eben- 
falls nackte Realität. Nach 
einer Zusage können 

noch ein paar Wochen 
„ins Land gehen‘. Ob wir 
ein Programm drucken, ist 
ziemlich schnell entschie- 
den. In welchem Heft, das 
wird schon schwieriger. 
Wir wollen ja schließlich 
eine gelungene Mischung 
zusammenstellen und müs- 
sen auch die Länge berück- 
sichtigen. Natürlich ist 

der Autor ungeduldig und 
will endlich sein Pro- 
gramm am Kiosk bewun- 
dern, trotzdem bitten wir 
um Verständnis. Unsere 
Zusage zum Abdruck ist 
la ernst gemeint und wird 
nicht widerrufen. 
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ANTWORT KOMMT 
BESTIMMT 


Vielen Dank für Ihre 
prompte Antwort auf 
mein Schreiben. Ich hatte 
mich eigentlich auf eine 
längere Wartezeit einge- 
richtet und war deshalb 
angenehm überrascht. 
Vielleicht wäre mein 
„Problemchen‘“ auch 
überflüssig gewesen, wenn 
man in Schneider aktiv den 
Anfängern einen eigenen 
Kurs anbieten würde. Wer, 
so wie ich, erst seit eini- 
gen Monaten einen EPC 
hat, der findet nur schwer- 
lich die nötigen Einstei- 
ger-Artikel. Vielleicht 
denken Sie einmal über 
meine Anregung nach. 
Stefan Perabo, 

Wiesbaden 


Schon geschehen. Einstei- 
ger werden in Zukunft 
etwas mehr berücksich- 
tigt, wobei es allerdings 
nicht um einen Kurs im 
üblichen Sinne geht. 

Statt dessen werden wir 
auf ein paar Seiten Lö- 
sungen zu jenen Fehlern 
bieten, die man am An- 
fang immer macht. Viel- 
leicht noch ein Wort zur 
Leserpost: Üblicherweise 
beantworten wir jeden 
Brief so schnell wie mög- 
lich. Zusätzlich veröffent- 
lichen wir dann noch sol- 
che Anfragen, von denen 
wir glauben, daß sie 

von allgemeinem Inter- 
esse sind. Zu diesem Zeit- 
punkt hat der Ratsuchen- 
de dann allerdings schon 
längst sein Schreiben in 
der Hand. Was Sie in 
Schneider aktiv auf den 
Dialog-Seiten lesen kön- 
nen, ist also nur ein kleiner 
Teil der Post. Wir bitten 
deshalb um Geduld, 
wenn es einmal nicht so 
schnell geht. 


SCHLECHTE DRUCK- 
QUALITÄT IN 
ZEITPLAN 


Trotz der vielen Zuschrif- 
ten von verschiedenen 
Lesern über die Druckqua- 
lität Ihrer ansonsten sehr 
guten Fachzeitschrift muß 
ich ınich heute mit einem 


Problem an Sie wenden. 
Das Listing „Zeitplan“ 
aus Heft 6/87 habe ich ab- 
getippt, aber leider läuft 
das Programm nicht. Es 
kommt zu einem Syntax 
Error in Zeile 220. Hier 
war allerdings der Druck 
so schlecht, dafs die Zei- 
len nicht richtig eingege- 
ben werden konnten. Ich 
hoffe, dafs sich die Quali- 
tät noch bessert und Sie 
endlich dazu übergehen. 
künftig mit Checksummer 
zu arbeiten. 

Klaus-Peter Reitz, 

Kassel 


Tatsächlich hat sich mitt- 
lerweile ja die Druckquali- 
tät verbessert. Nachträg- 
lich jedoch noch einmal 
die Zeile 220 aus dem 
Listing „Zeitplan‘. 
220 PRINT:INPUT 
“Eingabe : "sa 
Zur Zeit arbeiten wir 
noch an unserem Check- 
summer, er wird dem- 
nächst veröffentlicht. 
Sicherlich haben Sie Ver- 
ständnis dafür, daß ausge- 
rechnet ein solches Kon- 
trollprogramm ausführ- 
lich getestet werden muß. 


CHEMIE UND 
VOKABELTRAINER 
DIMENSIONIERUNG 
MUSS STIMMEN 


Leider müssen zwei Ihrer 
Listings in der Ausgabe 
8/87 nicht richtig abge- 
druckt sein. Bitte helfen 
Sie mir und schicken Sie 
mir die richtigen Zeilen. 
Beim Programm „Chemie“ 
kommt nach der Über- 
schrift — Atomverhältnis- 
se der Elemente — die Mel- 
dung “Subscript out of 
Range in 3910“. Die Zeile 
ist aber richtig abgeschrie- 
ben. Bei ‚Best Words“ 
kommt nach spätestens 12 
Vokabeln die Meldung 
“Subscript out of Range“ 
in Zeile 360. Wie beim 
erstgenannten Programm 
ist aber auch diese Zeile 
richtig abgeschrieben. 

Das mit der neuen Spra- 
che läuft auch nicht. 
Alexander Trost, 

Mengen 


Bei beiden Programmen 
liegt der Fehler in jenen 
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Zeilen, in denen dimensio- 
niert werden muß. Leider 
tritt die Fehlermeldung 
erst dann auf, wenn mehr 
als 11 Daten in Anspruch 
genommen werden sol- 
len. Außerdem weist die 
Zeilennummer nicht auf 
den (wahrscheinlich 
falsch getippten) DIM- 
Befehl hin, sondern auf 
eine Unterroutine, die da- 
mit nicht zurechtkommit. 
Diese mag tatsächlich 
richtig eingegeben sein. 
Bei ‚Chemie‘ raten wir 
dazu, die Zeilen 230 - 
270 noch einmal zu 
kontrollieren und dar- 
auf zu achten, daß in Zei- 
13910 die Variablen rich- 
tig eingegeben sind. Bei 
„Best Words‘ sollte die 
Zeile 160 überprüft wer- 
den. Wenn Sie bei diesem 
Vokabelprogramm eine 
andere Sprache oder Lek- 
tion abspeichern wollen, 
dann müssen Sie lediglich 
darauf achten, daß dies 
unter einem neuen 
Namen geschieht. 


DATUM UND 
UNTERSCHRIFT ZUM 
LESERSERVICE 


Ich hätt’ gerne die na- 
mentliche Anrede be- 
nutzt. aber die Unter- 
schrift ist unleserlich und 
da dies allgemein so ist. 
setzt man den Namen des 
Schreibenden in Druck- 
buchstaben darunter. 
Weiterhin empfehle ich 
Ihnen, ein Kalenderpro- 
gramm auszudrucken, da- 
mit Sie wissen, an welchem 
Tag ein Brief geschrieben 
wird und damit er ein Da- 
tum trägt. Langt das fürs 
Erste? 

Und nun zu Ihrem unda- 
tierten und äufserst mage- 
ren Schreiben. Es mufs 
doch ersichtlich sein. dafs 
ich den „Trick“, den Sie 
mir verraten, sehr wohl 
gelesen habe. Der Angel- 
punkt ist also die geeigne- 
te Hardcopy-Routine. Ich 
habe mir erst einen Druk- 
ker gekauft und hatte mit 
Hardcopy bisher nichts 
am Hut. Außerdem bin ich 
Jahrgang 1914, und das 
ist wahrscheinlich schon 
sträflich, daß sich ältere 
Leute noch mit Compute- 


rei beschäftigen. Und dies 
auch noch ohne jede Hilfe 
durch einen Club.Verra- 
ten Sie mir doch wenig- 
stens, in welchem Ihrer 
Aktiv-Hefte ich die geeig- 
nete HC-Routine finden 
kann. 

Nehmen Sie meine manch- 
mal etwas harten Worte 
mit Humor. aber doch 
mit tiefem Ernst, am 
besten mit einem Spruch 
auf Ihrem Arbeitsplatz: 
Auch ich habe einmal 
klein angefangen. 

Und täglich lesen. 
Dipl.-Ing. F. Schmitz, 
Heidesheim 


Wir haben es nicht gerne 
getan, aber wir mußten 
Ihren Leserbrief kürzen. 
Sicherlich haben Sie 
recht, wenn Sie meinen, 
ein korrekter Brief müsse 
ein Datum und eine leser- 
liche Unterschrift tragen. 
Das Sekretariat des Ver- 
lages weiß dies natür- 
lich und handelt auch da- 
nach, nur haben diese 
freundlichen Damen, die 
Sie vielleicht schon ein- 
mal am Telefon kennen- 
gelernt haben, nichts mit 
der Beantwortung der 
Leserpost zu tun. Wir 
glauben, daß „Erste 
Hilfe‘ in Form eines 
Kurzbriefes willkomme- 
ner ist, als ein vorbildli- 
ches Schreiben, auf das 
ein paar Tage mehr ge- 
wartet werden muß. Wer 
innerhalb einer Woche 
eine Antwort erhält, 
schaut wahrscheinlich 
nicht auf das Absendeda- 
tum, und wenn der Rat 
gut ist, dann wird es egal 
sein, daß die Unterschrift 
nur schwer zu entziffern 
ist. Jedenfalls haben wir 
diese Erfahrungen ge- 
macht. 

Kommen wir zu Ihrem 
Problem. Da wir nicht wis- 
sen, welchen Drucker Sie 
besitzen, können wir nur 
ganz pauschal darauf hin- 
weisen, an gekennzeichne- 
ter Stelle eine Hardcopy- 
Routine einzubinden. 
Dies ist der ganze Trick, 
sofern man dies überhaupt 
so bezeichnen will. Ohne 
daß wir garantieren wol- 
len, daß das Programm 
bei Ihrem Drucker läuft 
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(dazu müßten wir die 
Marke kennen), empfeh- 
len wir die „‚Super-Hard- 
copy aus dem Spezial- 
Heft 2/87. 

Generell begrüßen wir es, 
daß sich auch ältere Men- 
schen mit dem Computer 
befassen, halten es je- 
doch nicht für notwendig, 
extra darauf hinzuweisen, 
da das Alter eben keine 
Rolle spielt. Da wir nicht 
gerne in Anfänger- und 
Profi-Kategorien denken, 
erübrigt sich das entspre- 
chende Spruchschild an 
unserem Arbeitsplatz. 
Statt dessen sparen wir 
für die Anschaffung eines 
Kalenders. 


TERMINKALENDER 
UND 
TASCHENRECHNER 


Beim Listing .‚Termin- 
Taschenrechner-Kalender“ 
funktioniert die Datums- 
eingabe nach Programm- 
start nicht. Die Formel- 
eingabe war im Begleit- 
text sehr unverständlich 
beschrieben, und es wer- 
den keine Formeln abge- 
speichert bzw. wieder ein- 
gelesen. Dies waren einige 
telefonische Anfragen, 

die wir — der Eile wegen — 
einmal an alle Leser 
weitergeben wollen. 

All jene, die das Pro- 
gramm abgetippt haben, 
müssen darauf achten, 

daß sie den DEC-Befehl 

in der Form eingeben, in 
der dieser vom CPC akzep- 
tiert wird. Der 464 ver- 
langt insgesamt 3 Klam- 
mern, der 664 und der 
6128 arbeitet mit der kor- 
rekten Syntax (zwei Klam- 
mern). Bitte beachten Sie 
dazu den Text auf Seite 
24. Sollten Sie einen DEC- 
Befehl übersehen haben, 
meldet sich der Interpre- 
ter mit einer Error-Mel- 
dung. 

Formeln werden zusam- 
men mit den Terminen ab- 
gespeichert und auch wie- 
der eingelesen. Bei Pro- 
grammstart wird das Da- 
tenfile allerdings automa- 
tisch eingelesen, es muß 
also auf der gleichen Dis- 
kette zu finden sein. Und 
noch eines ist zu. beden- 
ken: Das Programm ist 


sehr leistungsfähig und 
kann deshalb nur einen re- 
lativ kleinen Datensatz 
verarbeiten, bei 80 Termi- 
nen dürfte Schluß sein. 
Leicht zu beantworten ist 
die Frage nach der Datums- 
eingabe. Um Schaltjahre 
zu berücksichtigen und um 
dann den Wochentag zu 
berechnen, muß das Jahr 
vierstellig eingegeben wer- 
den (Beispiel: 25 08 1987, 
die Leerzeichen sind vor- 
gegeben). Wird ein Daten- 
satz eingelesen, zeigt sich 
das Datum, an dem abge- 
speichert wurde, es sollte 
dann geändert werden. 
Dies ist vor allem wichtig, 
wenn die „temporären 
Termine gelöscht werden 
sollen. Temporär bedeutet, 
daß der Termin bei Über- 
schreitung des Datums ge- 
löscht werden soll, etwa 
ein Zahnarztbesuch, der 
am nächsten Tag ja erle- 
digt ist. Ein Geburtstag ist 
dagegen nicht „temporär“, 
er wiederholt sich ja und 
sollte nicht gelöscht 
werden. 


Am schwierigsten gestal- 
tet sich wohl die Frage 
der Formelprogrammierung 
beim Taschenrechner. Zu 
allererst muß im Haupt- 
menü die Taste “F' ge- 
drückt werden. Für die 
Formel gibt es dann ver- 
schiedene Optionen, dar- 
unter die beiden wichtigen 
“H“ (=Hinzufügen) und 
"N" (=Neu bearbeiten). 
Danach kann man den For- 
meltext hinter einer ent- 
sprechenden Nummer ein- 
geben (Beispiel: c=a+b). 
Wird anschließend der Ta- 
schenrechner gewählt, 
dann steuert man mit den 
Cursortasten das PRG- 
Feld an, drückt COPY und 
wählt anschließend mit 
“P''den Programmier- 
modus. Nach Drücken der 
“W“-Taste können so die 
Variablennamen definiert 
werden. Im Dialog mit 
dem Programm kann so- 
gar ein Testwert (zur 
Überprüfung der Formel- 
syntax) eingegeben wer- 
den. Die Formel wird im 
RUN- (statt Programmie- 
ren)Modus abgearbeitet. 
Es sind dann nur noch 
die Zahlen einzugeben. 
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EXTRAHEFTE FÜR PC 
UND TEURE 
KASSETTEN 

Ihre Zeitschrift kaufe ich 
mir schon längere Zeit 
und ich mufs auch sagen. 
dafs ich mit derselben 
zufrieden war. Die Pro- 
gramme sind gut, auch 
wenn der Druck der Zei- 
chen nicht immer opti- 
mal war. Ich hatte mir 
oft die fertigen Program- 
me auf einer Kassette 
schicken lassen, obwohl 
ich einen CPC 6128 be- 
nutze. Wenn man das 
Heft dazurechnet, ein 
stolzer Preis, aber im 
Vergleich doch preiswer- 
ter als andere Magazine. 


darauf, weil er zuwenig 
über seinen Rechner liest. 
Klaus Pillath, 

Moers 


Niemand kann es allen 
recht tun. In unserer Zeit- 
schrift hat der CPC den 
absoluten Vorrang. Dar- 
über hinaus bringen wir 
einige Informationen, die 
den PC in jenen Punkten 
betreffen, wo er ein 
„typischer Schneider‘ und 
nicht mehr IBM-Kompa- 
tibel ist, also über das 
GEM, Basic2 und Maus- 
betrieb. Was darüber hin- 
ausgeht, finden Sie in der 
CA, die ja jeder Schnei- 
der aktiv beiliegt. 
Ursprünglich wollten wir 
die Softbox-Kassetten 


SCHNEIDER 
MAILBOX 


24 Stunden online 


Sysop King 
Parameter 8N 1 


Tel. 


089/ 


183951 


Den nächsten Kauf der 
Kassette werde ich mir 
genauer überlegen. 

Auch ist es für mich un- 
sinnig, wie für viele ande- 
re CPC-Benutzer, wenn in 
Ihrer Zeitschrift Dinge 
stehen, von denen ich 
nichts verstehe und die 
ich auch nicht verstehen 
will, weil ich nicht vor- 
habe. diesen Computer zu 
erwerben. Wäre es da 
nicht besser, ein Heft nur 
für die Benutzer dieses 
Rechners herauszugeben. 
Dies bestätigt auch ein 
Kollege, welcher den PC 
1512 besitzt. Er kaufte 
sich bisher ein anderes 
Magazin, verzichtet aber 


völlig verschwinden lassen 
und nur noch Disketten 
ausliefern. Es gibt nur 
noch wenige Leser, die ei- 
ne Kassette bestellen, die 
Diskettenstation gehört 
mittlerweile sicherlich zur 
Standardausrüstung. Jeden- 
falls lohnt es sich nicht 
mehr, eine Mindestaufla- 
ge an ein Kopierwerk in 
Auftrag zu geben. Einige 
CPC-User sind aber viel- 
leicht doch auf dieses Spei- 
chermedium angewiesen 
und sollen dann auch 
beliefert werden, aber wir 
bitten sogar darum, nur 

in Ausnahmefällen davon 
Gebrauch zu machen. Für 
uns bedeutet eine Soft- 
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boxkassette nicht mehr 
Geld (ganz ehrlich!), son- 
dern mehr Arbeit. 


HYPOTHEKEN- 
TILGUNG MIT 
UNSINNIGEN 
BETRÄGEN? 


Ich habe aus Heft 9/87 

die „Hypotheken-Tilgung“ 
abgetippt, bekomme aber 
nur unsinnige Lösungen, 
obwohl das Programm ab- 
geschrieben wurde. Außer- 
dem vermisse ich das 
“**-Zeichen, von dem in 
der Einleitung die Rede 
war. Bitte nennen Sie mir 
die Fehlerlösungen. 
Manfred Klotz, 

Amstetten 


In der abgedruckten Weise 
läuft das Programm ein- 
wandfrei und liefert 
brauchbare Ergebnisse. 

Wir vermuten, daß Ihnen 
beim Abtippen der Varia- 
blennamen ein Tippfehler 
unterlaufen ist. Zwar wer- 
den nun Berechnungen 
durchgeführt und es kommt 
nicht zu einem Syntax- 
Error, aber da eine Varia- 
ble den Betrag 0 hat, wer- 
den die Ergebnisse ver- 
fälscht. Das ‚„‚Potenzie- 
rungszeichen‘' war an einer 
Stelle des Programms, die 
bei der Überarbeitung ent- 
fernt wurde. Da man sich 
dessen nicht immer sicher 
sein kann, blieb der Hin- 
weis im Begleittext stehen. 
Sie haben allerdings recht, 
eine Formel, die mit die- 
sem mathematischen Zei- 
chen arbeitet, kommt in 
der Hypotheken-Tilgung 
nicht vor. 


VIELEN DANK FÜR 
DIE URLAUBSGRÜSSE 


Daß einem echten Freak 
im Urlaub der Computer 
fehlt, ist uns bekannt 

(es empfiehlt sich, wenig- 
stens einen Taschenrech- 
ner mitzunehmen). Daß 
Schneider aktiv aber so 
selbstverständlich zum 
Computer gehört, daß wir 
auch fehlen, dies hat uns 
sehr gefreut. Vielen 
Dank also an alle jene 
Leser und Autoren, die 
uns mit einer Postkarte 
etwas neidisch machen 
wollten. 


» 


CPC: 


TIPS & TRICKS 


Neues Betriebs 
System läuft! 


Seit einigen Wochen wer- 
de ich in der Redaktion 
mit Argusaugen beobach- 
tet. Meine Kollegen 
trauen mir nicht mehr 
über den Weg. Jeder hat 
Angst um seinen Com- 
puter! Dabei war das, 
was ich getan habe, gar 
nicht so schlimm. Ich 
habe lediglich meinen 
eigenen CPC etwas umge- 
baut! Genauer gesagt: 
Ich habe das Betriebs- 
system meines CPCs ein 
bißchen abgeändert 


Deshalb hat jeder in der 
Redaktion nun Angst. 
daß ich mir auch mal 
einen anderen Computer 
greifen und diesem dann 
mit dem Lötkolben zu 
Leibe rücken könnte. 
Doch ernsthaft: Mich 
hat es schon lange ge- 
stört, daß sich mein CPC 
immer im 40-Zeichen- 
Mode meldete, obwohl 
ich eigentlich den 80- 
Zeichen-Modus vorziehe. 
Das wollte ich abstellen. 
Ebenso gestört hat mich 
auch. daß ich, wenn ich 
mit 

Save “Name ,p 
abgespeicherte Software 
einlesen wollte, jedesmal 
erst ein “deprotect‘-Pro- 
gramm laufen lassen mufs- 
te. Dem wollte ich eben- 
falls mit einer Betriebs- 
system-Änderung abhel- 
fen. Mein CPC meldet 
sich nun immer im 80- 
Zeichen-Mode und - je 
nach eingestecktem 
EPROM - manchmal 
auch mit einer anderen 
Einschaltmeldung. Alles 
hängt davon ab, welches 
der zwischenzeitlich 
verschiedenen Betriebs- 
systeme ich eingebaut 
habe. x 

Leider ist diese Ande- 
rung im CPC nicht ganz 
einfach durchzuführen, 
weshalb ich jedem, der 
elektronisch nicht be- 


wandert ist. davon abrate. 
den Computer einer der- 
artigen Operation zu 
unterziehen. 

Wer den Mut zu einem 
solchen Eingriff in die 
Hardware hat und alle 
Arbeiten korrekt durch- 
führt, kann sich nachher 
an seinem neuen Betriebs- 
system erfreuen. Wer je- 
doch seinen CPC durch 
einen Fehlgriff in den 
Computerhimmel schickt. 
ist selbst schuld und hät- 
te den Umbau besser las- 
sen sollen. Ich übernehme 
in diesem Fall keine Ga- 
rantie, willaber trotzdem 
am Beispiel des CPC6128 
aufzeigen, wie ein solcher 
Umbau erfolgen kann. 


Das neue Betriebssystem als 
Eprom auf der Hauptplatine 
Schon früher habe ich in 
einem Artikel und in ei- 
nem Buch beschrieben, 
wie man mittels einer klei- 
nen Zusatzplatine aus 
einem CPC464 einen 
CPC664 macht, ohne in 
den Computer selbst ein- 
zugreifen. Im großen 
CPC-Arbeitsbuch von 

M. Kotulla und mir (er- 
schienen im Franzis- 
Verlag), ist eine entspre- 
chende Platine abgedruckt. 
Diesmal aber soll es vor 
allem darum gehen, 

das Betriebssystem selbst 
abzuändern. 


Teil (UPPER-ROM). dem 


Alle CPCs haben in ihrem 
Innern ein Firmware- 
ROM mit insgesamt 32 
KB Kapazität (TMM 
23256). Intern (elektro- 
nisch) wird dieses ROM 
so behandelt. als seien 
es zwei ROMs mit je 

16 KB. Deshalb wird 
auch immer wieder von 
einem LOWER- und 
UPPER-ROM gespro- 


chen und geschrieben. 


VORAB- 
INFORMATIONEN 


Der untere Teil (LOWER- 


ROM) liegt im CPC dem 
RAM-Speicher von 
&0000 bis &3FFF paral- 
lel. Die interne Schaltung 
(in Verbindung mit dem 
Betriebssystem oder ei- 
ner anderen Software) 
wählt immer automa- 
tisch aus, ob RAM oder 
ROM angesprochen wer- 
den müssen. Das gleiche 
gilt auch für den oberen 
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der Bildschirmspeicher 
ab &C000 bis &FFFF 
parallel liegt. Erweite- 
rungs-ROMs liegen eben- 
falls ab &C000 parallel. 
Das DOS, also das Be- 
triebssystem für die Dis- 
kettenstationen. ist be- 
reits ein Erweiterungs- 
ROM mit der Adresse 7. 
Das obere ROM des nor- 
malen Betriebssystems 
hat die Adresse O. Es wä- 
re nun durchaus möglich, 
ein externes ROM als 
Vordergrund-ROM ((an- 
stelle des eingebauten) 
aktiv werden zu lassen, 
aber dann könnte es Pro- 
bleme mit mancher Soft- 
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ware geben. Deshalb soll 
hier ein „brutalerer“ 

Weg beschritten werden: 
Wir tauschen das Firm- 
ware-ROM aus. 

Ein ROM ist ein Fest- 
wertspeicher, dessen In- 
halt nicht mehr zu verän- 
dern ist. Da es aber einen 
pinkompatiblen EPROM- 
Baustein gibt, kann das 
Betriebssystem leicht ab- 
geändert und das Original- 
ROM gegen ein EPROM 
ausgetauscht werden. Ge- 
nau das ist es, was ich 
meinem CPC angetan ha- 
be und weshalb man mich 
in der Redaktion nun 
sehr genau beobachtet. 
Dals es einige Probleme 
bei diesem Umbau zu 
meistern gilt, will ich hier 
aufzeigen. 


RICHTIGES WERKZEUG 
IST VORAUSSETZUNG 
Wer seinen CPC schon ein- 
mal geöffnet und sich die 
Innereien näher betrach- 
tet hat. wird sich vielleicht 
erinnern, dafs die meisten 
ICs (wenn nicht sogar 
alle) in diesen Compu- 
tern nicht gesockelt, son- 
dern eingelötet sind. Die- 
se Tatsache erschwert das 
Vorhaben des Betriebs- 
systemwechsels. Aber wie 
heitst es bei Daniel Düsen- 
trieb? „Dem Inscheniör 
ist nüchts zu schwör“ oder 
so ähnlich. 

Man mufs aber nicht gleich 
ein Soft- oder Hardware- 
Ingenieur sein, um trotz 
allem einen solchen Um- 
bau durchführen zu kön- 
nen: normale Elektronik- 
und Lötkenntnisse rei- 
chen. Zur Modifikation 
mufßs ein entsprechender 
Sockel die Stelle des 
ROMs einnehmen, um in 
diesen dann die neue 
„Firmware“ zu stecken. 
Dieser Einbau ist zwar 
nicht jedermanns Sache, 
aber wer geschickt mit 
einem Lötkolben umge- 
hen kann, darf sich schon 
an den Umbau wagen. 
Wer aber einen 300-Watt- 
Lötkolben (vielleicht 
auch noch mit 5 cm brei- 
ter Lötspitze) für diese 
Arbeit einsetzen will, 
sollte lieber die Finger 
von der Geschichte las- 
sen. 


Bevor sich nun jemand an 
den Umbau wagt, sollte 
er wissen, daf3 handelsüb- 
liche Sockel nicht direkt 
eingebaut werden kön- 
nen, weil das ROM nicht 
im Sockel-Rastermaß ein- 
gelötet ist. Ein handels- 
üblicher Sockel paßt also 
nicht. Entweder empfiehlt 
es sich, mit Sticksockeln 
„von der Stange“ zu ar- 
beiten oder einen norma- 
len IC-Sockel in Längs- 
richtung zu teilen. Das 
direkte Einlöten eines 
EPROMs kann ich aus 
verschiedenen Gründen 
nicht empfehlen. Doch zu- 
erst muß der Inhalt des 
Firmware-ROMSs ausgele- 
sen und dann entspre- 
chend abgeändert werden. 


WIE ÜBERTRÄGT MAN 
DEN INHALT DES 
ROMs IN EIN EPROM? 


Es gibt verschiedene Mög- 
lichkeiten, es zu tun. 

Die vermutlich unwahr- 
scheinlichste Methode ist, 
das ROM mittels eines 
EPROMers auszulesen, 
denn der EPROMer muß 
die Möglichkeit bieten, 
nach dem Anstellen der 
Adresse ein Latch-Signal 
an das ROM zu liefern. 
Das liegt daran, dafs sich 
im ROM ein Adressdeko- 
der befindet, der intern 
die Adresse erst dann 
durchschaltet, wenn er 
dieses Signal am Anschluß- 
pin 20 erhält. Da die we- 
nigsten EPROMer diese 
Möglichkeit bieten, sei sie 
hier nur angesprochen 
(mir ist zur Zeit überhaupt 
kein preiswerter EPROMer 
bekannt, der diese Option 
hat). Die einfachste und 
bestimmt auch sicherste 
Methode ist, das ROM aus- 
zulesen und in ein Daten- 
file zu übertragen. Dabei 
leistet ein gutes Maschinen- 
sprache-Kit enorme Dien- 
ste. Mit dem bei mir vor- 
handenen MAXAM (von 
der Firma Arnor) ist esein 
Kinderspiel. Zuerst wird 
der untere Teil (&0000 

bis &3FFF) des ROMs 
ausgewählt, in den RAM- 
Speicherbereich ab 

&2000 übertragen und 
(sicherheitshalber) gleich 

. auf die Diskette geschrie- _ 


TIPS & TRICKS 


ben. Danach erfolgt der 
gleiche Vorgang mit dem 
oberen ROM-Teil 

(&CO000 bis &FFFF), aber 
mit Ablage ab der Adresse 
&6000. Die Adressen sind 
so gewählt, weil der bei 
mir vorhandene EPROMer 
die Files mit diesen 
Adressen benötigt. 

Wer einen EPROMer be- 
sitzt, der nicht am CPC 
betrieben werden kann, 
stößt nun auf Probleme: 
Wie können die Daten zu 
diesem gebracht werden? 
Hierzu habe ich auch kei- 
ne Patentlösung. Even- 
tuell kann man versuchen, 
die Daten seriell zu über- 
tragen. Derjenige aber, der 
den EPROMer direkt am 
CPC betreiben kann, hat 
nun keine Probleme 
mehr, wenn das ‚Brenn- 
gerät“ EPROMs vom 

Typ 27256 verarbeiten 
kann. Zu berücksich- 
tigen ist noch, dafs das 
Original-ROM laut den 
Toshiba-Unterlagen 

150 ns „schnell“ ist. 

Dies sollte auch für das 
EPROM gelten. 

Im Schaltplan des CPC 
6128 sind im Gegensatz 
hierzu 200 ns angegeben. 
Mit einem 150 ns- 
EPROM liegt man deshalb 
ganz bestimmt richtig, 
auch wenn es etwas teu- 
rer ist! 

Zur Modifikation des 
Betriebssystems können 
die Datenfiles eingelesen 
und dann mittels eines 
Monitors entsprechend 
abgeändert werden. Da- 
nach beginnt der ‚„Schluß- 
vorgang‘“. 


SICHER IST SICHER! 


Ich empfehle aber, die 
Änderungen zunächst 
noch zurückzustellen und 
erst einmal eine Doublet- 
te (also eine Kopie des 
Firmware-ROMs) anzu- 
fertigen. Der Grund ist 
ganz einfach: Dadurch 
kann schnell festgestellt 
werden, ob der CPC die 
Operation ohne Schaden 
überstanden hat. Liegt die 
Kopie vor, kann mit dem 
Umbau begonnen werden. 
Wer das ROM vorsichtig 
genug ausgelötet ‚und 
die Beinchen ‚‚gerichtet‘“ 
hat, kann zwar auch mit 


ihm den Funktionstest 
durchführen. Er muß aber 
damit rechnen, dafs das 
ROM beschädigt werden 
kann, wenn es verkehrt 
eingesteckt wird oder 
wenn beim Umbau durch 
die Löterei ein Kurz- 
schluß erzeugt wurde! 
Dass für den Umbau der 
Computer geöffnet, even- 
tuell Abschirmbleche ent- 


fernt werden müssen, usw., 


versteht sich von selbst. 
Eine letzte Warnung: Wer 
das ROM nicht erkennt 
oder plötzlich doch noch 
Bedenken bekommt, soll- 
te den Computer sofort 
wieder schließen und die 
Modifikation unterlassen. 
Das ROM muf3 mit äußer- 
ster Vorsicht ausgelötet 
werden. Eine Entlötsaug- 
pumpe ist für diesen Vor- 
gang sicher anzuraten. 
Achten Sie darauf, daß 
die Beinchen mit der Pla- 
tine sowohl auf der Ober- 
als auch der Unterseite 
verlötet sind und wenden 
Sie bei allen Arbeiten nie- 
mals Gewalt an! 


EIN NULLKRAFT- 
SOCKEL WÄRE GUT, 
ABER... 


Ist das ROM entfernt, 


kann der geteilte Sockel 
eingelötet werden. Die 
schwierigste Arbeit ist da- 
mit erledigt. Ratsam wä- 
re es, einen Nullkraft- 
Sockel zu verwenden, da 
dieser für Wechsel von 
EPROMs hervorragend ge- 
eignet ist. Blofßs: wenn 
geteilt wird, ist er ja nicht 
mehr als Nullkraftsockel 
zu verwenden. Beim CPC 
6128 habe ich aus Platz- 
gründen keine Möglichkeit 
für den Einsatz eines der- 
artigen Spezialsockels ge- 
funden. Beim CPC464 
oder 664 könnte aber 
durchaus genügend Platz 
vorhanden sein, um ihn 
mit einem kleinen Trick 
unterzubringen: Die bei- 
den Sockelhälften eines 
Normalsockels bräuchten 
nur etwas schräg einge- 
baut werden, um in diese 
dann den Spezialsockel 
zu stecken. 

Egal, welchen Sockel Sie 
verwenden, Sie brauchen 
nur das EPROM einzu- 
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stecken. Wenn Sie alles 
korrekt durchgeführt ha- 
ben, sollte sich der CPC 
beim Einschalten ganz 
normal melden. Es könn- 
te sein, dafi Sie noch eine 
kleine Modifikation am 
CPC durchführen müssen. 
Das EPROM 27256 benö- 
tigt am Pin ] evtl. eine 
positive Versorgungsspan- 
nung, das ROM hat hier 
einen NC-Anschlu#. NC 
bedeutet „not connected“ 
und weist darauf hin, daß 
dieser Anschluß keinerlei 
interne Verbindung hat. 
Evtl. müssen beim Einsatz 
des EPROMs eben an die- 
sen Pin +5 Volt angelegt 
werden; bei mir klappt es 
auch ohne einwandfrei. 
Läuft der CPC zur Zufrie- 
denheit, können Sie sich 
an die Modifikationen des 
Betriebssystems selbst 
machen. 

Zunächst ein paar Hin- 
weise, was Sie ändern kön- 
nen: Beispielsweise die 
Einschaltmeldung derart, 
daß Sie der CPC persön- 
lich begrüßt, den Ein- 
schaltmodus in 80-Zeichen 
pro Zeile, andere Farb- 
wahl, Entfernung des P- 
Schutzes, Übersetzung 
der englischen Fehlermel- 
dungen, Änderung des 
Zeichensatzes und vieles 
mehr. 

Für Änderungen am Be- 
triebssystem ist es von 
Vorteil, wenn Sie im Be- 
sitz eines kommentierten 
ROM-Listings sind. Zur 
Zeit gibt es meines Wis- 
sens bisher nur für den 
CPC464 komplette ROM- 
Listings, Besitzer der Ver- 
sionen 664 und 6128 müs- 
sen deshalb einiges selbst 
analysieren. Auch in der 
wohl umfangreichsten 
deutschen Dokumenta- 
tion dieser Art, dem 
“ROM-Listing CPC464/ 
664/6128° von Markt 
und Technik, sind die An- 
gaben in vielen Fällen 
nicht ausreichend, können 
aber eine gute Hilfestel- 
lung geben. 

Noch ein letzter Hinweis: 
Wer will, kann verschie- 
dene EPROMs auch 
Huckepack löten und die 
Betriebssystemauswahl 
mittels eines Schalters 
realisieren. LM 


KOMMENTAR 


Computer: 


Gesucht 
wird 
Daniel 


Innovation war einmal das Schlagwort der gesamten 
Computerbranche. Es gehörte zur vornehmsten Pflicht, 
in regelmäßigen Abständen etwas Neues und (nach 
Möglichkeit) Besseres auf den Markt zu bringen. Der 
Erfindungsgabe der Firmen verdankt man heute 
Betriebssysteme wie GEM - hier war Apple die trei- 
bende Kraft — und Computer wie den Amiga, um 
dessen Grundidee sich Atari und Commodore streiten. 
Es war ein Goldenes Zeitalter, in dem ein Computer- 
freak nur die Zeitung aufschlagen mußte, um begeistert 
zu sein. Unter den Computern und der dazugehörigen 
Peripherie konnte wirklich noch ausgewählt werden, 
was natürlich auch ein wenig Sachkenntnis erforderte. 
Trotzdem traf das Publikum die Auswahl und suchte 
sich die Leckerbissen des Fortschritts aus. Das 
Wort ‚„Standard’’ war eigentlich verpönt. Ein guter, 
preiswerter Computer verkaufte sich gut, und um 
eine verbreitete Marke kümmerten sich die Hard- und 
Softwarehersteller. Die Systempflege war gesichert. 
Bestes Beispiel ist der Commodore C 64: Mittlerweile 
ist er millionenfach verkauft und trotzdem in keiner 
Weise zu irgendeiner anderen Marke kompatibel. 
Eine gute Erfindung — es war der Prozessor von Chuck 
Peddle — hatte sich durchgesetzt. 


Dusentrieb! 


Es war damals die Zeit 
der „Daniel Düsentriebs‘“, 
jener manchmal etwas 
spleenigen Erfinder, die 
nur an ihre Idee glaubten 
und von Produktionsko- 
sten oder Marktchancen 
nichts wissen wollten. 
Das einzige, was sie inter- 
essierte, war der Fort- 
schritt auf dem Computer- 
sektor, und sie brachten 


GOLDENE JAHRE 
FÜR ERFINDER 


die Technik in Bewegung. 
Als exemplarisches Bei- 
spiel mag vielleicht Clive 
Sinclair gelten, der durch 
den ZX 80 sogar zu ei- 


nem Adelstitelkam und 
sich Sir nennen darf. Sei- 
ne Geschichte ist eigent- 
lich auch das Schicksal 
aller Erfinder des alten 
Geistes. Mit seinem zwei- 
ten Gerät, dem Spectrum, 
konnte er eine gutgehende 
Computerfirma aufbauen. 
Seine damalige Idee, ei- 
nen Volks-68000er zu 
bauen, führte zwar zu ei- 
nem annehmbaren tech- 
nischen Ergebnis, war je- 
doch kein geschäftlicher 
Erfolg. Sinclair schrieb 
rote Zahlen und mußte zu 
guter Letzt verkaufen. 


KAUFLEUTE ALS 
MANAGER 


Jene, die das Geld auf den 
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So mag es zugehen: Der 
Erfindergeist muß sich gegen 


den Pfennigfuchser durchset- 


zen. Kann man sich so noch 
Innovation leisten? 


Tisch legten, verkörper- 
ten die neue Generation 
von Computerverkäufern. 
Amstrad war vor dem 

Bau des ersten CPC ein 
HiFi-Werk und hatte hier 
die Produktionsmethoden 
entwickelt, die sich nun 
auch bei den Rechnern 
bewähren sollten. 
Verfahren wird folgender- 
malsen: Marktforscher er- 
mitteln die Verkaufschan- 
cen eines bestimmten Ge- 
rätes. Dabei muß es sich 
um einen bereits vorhan- 
denen Typ handeln, denn 
neue Entwicklungen ko- 
sten Geld und sind in 


den Produktionskosten 
noch nicht einzuschätzen. 
Bei der Markterhebung 
wird auch gleich der 

Preis festgelegt, den der 
Rechner haben darf. Die- 
ser Verkaufspreis ist 

dann der Rahmen, inner- 
halb dessen sich die Kauf- 
leute bei der Materialzu- 
sammenstellung bewe- 
gen dürfen. 

Wo gibt es die billigste 
CPU, wer liefert preis- 
werte Speicherbausteine, 
was kostet ein Monitor in 
Korea, was kostet erin 
Taiwan, und — besonders 
wichtig — in welchem Bil- 
liglohn-Land läßt sich 
alles zusammenlöten? 


Mit diesen Fragen werden 
heute Computer konzi- 
piert. Kaufmänner ha- 
ben das Sagen, „Daniel 
Düsentrieb‘“ ist arbeits- 
los. In den Chefetagen 
fragt man nicht nach 
dem Fortschritt, sondern 
nach der Marktlücke, die 
Innovation bleibt auf 
der Strecke. 


NUR DER STANDARD 


VERKAUFT SICH 


Bedauerlicherweise inter- 


essiert es auch nicht den 
Verbraucher. Er will mög- 
lichst wenig ausgeben für 


etwas, was viele andere 
schon haben. So entsteht 
ein Standard, und auf die- 
se Weise entstanden die 
größten Markterfolge aus 
dem Hause Amstrad. Der 
CPC 464 war mit seinem 
Z 80-Prozessor kein Neu- 
ling mehr, niedrige Pro- 
duktionskosten und preis- 
werter Einkauf hielten 
den Preis niedrig und zu 
guter Letzt gab es die 
Marktlücke eines „Kom- 
plettsystems‘“. Als näch- 
steskam dann MS-DOS 
an die Reihe. Auch hier 
wieder das alte Spiel: 

Was war bewährter Stan- 
dard, ließ sich günstig ein- 
kaufen und billig produ- 


SERVICE 


zieren? — Fertig war der 
Computer. Technische 
Weiterentwicklung gab 

es nicht, wenn man davon 
absieht, dafs sich ein paar 
Leute Gedanken mach- 
ten, wie man auf das eine 
oder andere Bauteil (Ge- 
bläse) verzichten konnte. 
Jetzt baut man an einem 
AT, der im Herbst vor- 
gestellt werden soll. Auf 
eine Sensation darf man 
dabei nicht hoffen; 
Hauptsache, der Preis 
stimmt. 


KLEINE BESSERUNG 
IN SICHT 


Aber es gibt für all jene 
Freaks, die auf den Fort- 
schritt setzen, einen klei- 
nen Silberstreif am Hori- 
zont: Die Firma Schnei- 
der will irgendwann ein- 
mal in Deutschland pro- 
duzieren. Bereits das 
BTX-Modul für den 464 
(es erscheint im Herbst) 
wurde ja schon in „Eigen- 
arbeit‘ ausgebrütet. Viel- 
leicht begreift man die 
Chance und zieht mal 
wieder die Erfinder zu 
Rate: es mußs ja nicht 
gleich eine Kampfansage 
an den Amiga werden. 

Es kann nicht angehen, 
dafs Daniel Düsentrieb in 
einer Werkshalle die Fern- 
ost-Bauteile zusammen- 
steckt. Zur Sicherheit 
kann man ja schon ein- 
mal folgende Anzeige auf- 
geben: 

„Tausche zwei Kaufleute 
gegen einen Erfinder. 
Daniel Düsentrieb bevor- 
zugt!“ 


BEZUGSQUELLEN — 
WAS GIBT ES WO? 

VON SCHNEIDER AKTIV 
AKTIV GETESTET 


Wir wollen hier keine 
Gratiswerbung machen 
— es finden im folgenden 
sich auch die Vertreiber 
jener Soft- und Hardware, 
die bei uns nicht auf 
Gegenliebe stieß —, aber 
ein Testbericht ist völlig 
sinnlos, wenn wir nicht 
auch mitteilen, wo das 
Besprochene zu beziehen 
ist. Leider können nicht 


alle Händler berücksich- 
tigt werden, die die Ware 
im Sortiment führen. 
Dies soll nur ein letzter 
Hinweis für den Inter- 
essentenkreis sein, der bei 
seinem Fachhändler auf 
leere Regale gestoßen ist. 


Enduro Racer (9/87) 


Activision Deutschland 
GmbH 

Postfach 760680 

2000 Hamburg 


Die Formel (8/87) 
Greyfell (8/87) 

One (8/87) 

Bride of Frankenstein 
(8/87) 

Dogfight (8/87) 
Kinetik (8/87) 

OCP Art Studio (8/87) 
Spy vs. Spy ( 9/87) 
Challenge of Gobots (9/87) 
Triaxos (10/87) 
Starfox (10/87) 

Cholo (11/87) 


Indoor Sports (11/87) 
Hybrid (11/87) 
Vermeer (11/87) 


ariolasoft GmbH 
Postfach 1350 
4830 Gütersloh 


Proword (10/87) 


Arnor (Deutschland) 
Hans-Henny-Jahn-Weg 21 


.2000 Hamburg 76 


Vereinsverwaltung 
(11/87) 


„Byte me”-Computer- 
systeme 

Wilhelmstr. 7 

5240 Betzdorf 


Tips & Tricks zum CPC 
Band 2 (8/87) 
MS-DOS Führer (9/87) 
Peeks und Pokes zum 
CPC (9/87) 
Maschinensprachebuch 
zum CPC (9/87) 


Data Becker 
Merowingerstr. 30 
4000 Düsseldorf 
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Dirman (11/87) 
Tracer (11/87) 


D. Gunkel Software 
Jülicherstr. 312 
5100 Aachen 


Pitstop II — PC 1512 
(9/87) 


Schneider Data 
Computer Vertriebs 
GmbH 
Rindermarkt 8 
8050 Freising 


Star Writer PC (9/87) 


Star Division 
Uelzener Str. 12 
Lüneburg 


Magic Brush (9/87) 
Stairway to Hell (9/87) 
Donkey Kong (9/87) 
Express Raider (9/87) 
Prohibition (10/87) 
Gremlin Take 4 (10/87) 
Shadow Skimmer (10/87) 
Ziggurat (10/87) 
Mountie Mike’s 
Deathride (10/87) 
Street Hawk (11/87) 


Mag Max (11/87) 


Waldeck Software 
Tulpenstr. 30 
2870 Delmenhorst 
Bezugsquelle 
Bausatz (10/87) 


P. Konrady 

GE-Soft 
Graurheindorferstr. 21 
8036 Herrsching 

Tel. 0228/694221 


Markenlaufwerke zum 
Bausatz (10/87) 


NEC Deutschland 
Postfach 
8000 München 


NBB (TEAC) 
Gewerbegebiet 
8036 Herrsching 


Schneider PC 1640 


Im Fachhandel 


Dirman/Tracer: 


TEST 


Wer suchet- 
der findet und 


Software ist, die 


selbst 


Programmier- 


bar ist. 


Gleich mehrere Risiker nahm die 
junge Hard- und Softwarefirma 
Gunkel bei ihrer Gründung in Kauf. 
Zum einen widmete sie sich bei 

der Software dem Schneider CPC 
mit eingebauter Vortex-Erweiterung 
und schränkte mit dieser ‚‚Speziali- 
tät’ den Kundenkreis gleich ein. 
Zum anderen handelt es sich bei 

den drei Erstveröffentlichungen um 
Programme, die sich an den fort- 
geschrittenen User wenden und von 
diesem unter Umständen auch schon 
einmal selbst programmiert werden 
könnten. Wenn auch hinter dem 
Vertriebsprogramm nicht unbe- 
dingt das große Geld steckt, so 
können die drei Utilities doch ge- 
nau das sein, was der eine oder 
andere User sucht. Denn wer, außer 
Vortex, kümmert sich sonst noch 
um die Speichererweiterung? Bei der 
ersten lieferbaren Programm-Serie 
handelt es sich um einen Bildschirm- 
treiber namens ‚‚Fast‘’, einem 

„ Tracer’’ für Maschinenspracheprofis, 
und den ‚„‚Dirman‘, eine Dateiver- 
waltung für die Programmsammlung. 
Die letzten beiden Neuheiten hat 
Schneider aktiv für Sie getestet. 


Jedes Programm wird auf einer 
5.25-Zoll-Diskette zusammen mit ei- 
nem Handbuch geliefert. Es besteht 
kein Programmschutz, so dafs Sicher- 
heitskopien möglich sind. Generell 

— dies sei hier noch einmal gesagt — 
ist die Speichererweiterung SP64 bis 


Dirman: Titelbild wie 
„hausgemacht” 


SP512 Voraussetzung für den Be- 
trieb der Programme. 


DIRMAN -— DIE DISKETTEN- 
DATEI — PROGRAMM- 
VERWALTUNG MIT KOMFORT 


Mit Dirman testeten wir gleich eines 
der komfortabelsten Programme. 

Es ist natürlich nichts anderes als ei- 
ne Datei zur Aufnahme aller Pro- 
gramme und/oder Datenfiles. die der 
Anwender auf Diskette besitzt. 
Allerdings wurde auf Bedienerfreund- 
lichkeit viel Wert gelegt und es blei- 
ben kaum Fehlermöglichkeiten bei 
der Eingabe übrig. 

Schon mit der kleinsten Speicherer- 
weiterung können über 2000 Dateien 
verwaltet werden. bei der 512 
KByte-Karte sind es über 16000. 
Die Daten behalten ihren ursprüngli- 
chen Zusammenhang, das heißt, sie 
werden auf Wunsch als Directory ei- 
ner Diskette ausgegeben. Diese Dis- 
kette wird namentlich geführt, etwa 
als Spiele-1, sodaß bereits hier eine 
Unterordnung stattfinden kann. 
Trotzdem werden die einzelnen Da- 
teien alphabetisch sortiert und kön- 
nen als Liste ausgegeben werden. 
Dies gilt auch für die Suchfunktion, 
bei der entweder nach einem Disket- 
tennamen samt zugehörigem Direc- 
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tory oder nach einer einzelnen Datei 
gesucht werden kann. 

Auch eine Listenfunktion ist vorhan- 
den. die man sich mit Filterfunktio- 
nen ausgeben lassen kann. So ist es 
möglich, alle Binärdateien oder alle 
Programme mit dem Buchstaben A 
herauszufinden. 


BEQUEME DATENEINGABE MIT 
KOMPLETTEM DIRECTORY 


Das Aufnehmen neuer Daten ist glei- 
chermatsen komfortabel. Liegt die 
betreffende Diskette im Laufwerk, 
dann genügt ein Tastendruck, und 
das Directory ist eingelesen. An- 


schließend wird der Diskettenname 
vergeben. Hier offenbart sich aller- 
dings auch ein logischer Fehler des 
Programms: Daten werden nur dann 
als bereits vorhanden gemeldet, wenn 
der gleiche Diskettenname noch ein- 
mal vergeben wird. Ist dies nicht der 
Fall, liegen die jeweiligen Directories 
zweimal im Datenspeicher von Dir- 
man. Aus Unachtsamkeit kann man 
also eine Diskette zweimal archivie- 
ren. Andererseits der Vorteil: Wenn 
„Dirman‘ die Namensgleichheit 
zweier Datenfiles nicht stört, kann 
man auch seine Backup-Disketten 

in das System einbringen, die ja nur 
eine Kopie des Originals darstellen. 
Wie dem auch sei: es bleibt positiv, 
dafs sich auf allereinfachste Art und 
Weise neue Daten hinzufügen lassen. 


Dirman 
Bildschirm! 
Bedienung | 
Leistung 


Hard- und Software Gunkel 


Weitere Feinheiten des Programms 
sind die Menüpunkte ‚‚Disketten- 
etikett drucken“ und „‚Statistikaus- 
gabe‘. Während sich über den Eti- 
kettendruck nicht viel sagen läfst 
(außer, dafs es funktioniert), ist die 
Statistikausgabe um so interessanter. 
Es kommt sehr oft vor. dafs man für 
ein bestimmtes Programm oder ei- 
nen Datensatz noch freien Platz auf 
irgendeiner Diskette suchen muß. 
Mit diesem Menüpunkt werden sämt- 
liche Disketten aufgelistet und da- 
bei die belegten und freien Speicher- 
plätze angezeigt. 

Dat sämtliche Ausgaben auch auf 
den Drucker geleitet werden, ist 


selbstverständlich. „Dirman‘ nutzt 
dabei jedoch die Vortex-Erweiterung 
und stellt auf Wunsch einen Druk- 
kerspooler zur Verfügung. In ver- 
nünftigen Grenzen ist ein solcher 
Zwischenspeicher eine angenehme 
Hilfe. 


STATISTIKOPTION ALS 
PRAKTISCHE KLEINIGKEIT 


So gut sich die bisherigen Optionen 
auch lesen. es bleiben Wünsche offen. 
So vermifsft man zum Beispiel die 


TEST 


nicht vorgesehen. Der Anwender von 
„Dirman‘ hat hoffentlich ein ver- 
nünftiges System der Extensions. um 
Irrtümer zu vermeiden. 

Das Handbuch zur Dateiverwaltung 
ist zwar recht dünn und beschränkt 
sich auf das Notwendigste, wird je- 
doch auch Einsteigern gerecht. 


TRACER — MASCHINEN- 
PROGRAMME SCHRITT FÜR 
SCHRITT VERFOLGT 


Der gröfste Schwachpunkt von 
„.Tracer‘ ist das magere Handbuch. 
Hinter dem schlichten Programm- 
namen verbirgt sich mehr. als die 14 


Umfangreiche 
Optionen für 
Ordnungs- 
liebende 


Seiten Text vermuten lassen. Allein 
der lapidare Hinweis, dieses Pro- 
gramm helfe dabei, die Geheimnisse 
des Schneider zu erkunden. ist 
wohl eine Untertreibung. 

Das Programm wird in einen frei 
wählbaren Speicherbereich geladen, 
der höher als &4000 liegen muß:. 
Der Tracer kann nur im zentralen 
RAM-Bereich lauffähig sein. da er 
vollkommen selbständig arbeitet 
und nicht auf ROM-Routinen zu- 
rückgreift. 

Die zweizeilige Anzeige über die Re- 


Eingabe zusätzlicher Datenfelder. Dergister ist sicherlich recht sparsam 


Filename mag in den meisten Fällen 
nicht ausreichen, um ein Programm 
zweifelsfrei zu identifizieren. Weite- 
re Kriterien, etwa Spiel. Anwendung, 
Text zu...und so weiter, sind jedoch 


ae re 
Tracer 
Bildschirm! 


Bedienung 
Leistung 


Hard- und Software Gunkel 


und wohl nur vom fortgeschrittenen 
Anwender zu interpretieren. an den 
sich das Programm ja auch letztlich 
wendet. Angegeben wird der Inhalt 
der „normalen“ und der alternativen 
Register, IX und FY sowie der Inhalt 
der Speicherzelle, die mit HL mar- 
kiert ist. Die mithin wichtigen Para- 
meter. die gesetzten Flags. sind na- 
türlich ebenfalls zu finden. Eine er- 
weiterte Anzeige bringt schließlich 
noch den Stackpointer, den Inhalt 
der von IY und IX adressierten Spei- 
cherzelle und die drei nächsten Worte 
des Stacks zutage. 


Bestandteil des Tracers ist ein zeilen- 
orientierter Assembler. Hiervon darf 
man sich, gerade im Zusammenhang 
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mit der Dokumentation, nicht allzu- 
viel versprechen, jedoch versteht er 
die von Zilog vereinbarten Befehle 
und verrichtet seine Aufgabe zur vol- 
len Zufriedenheit. Dem gegenüber 
steht ein Disassembler, mit dem Spei- 
cherbereiche nach Eingabe von 

Start- und Endadresse aufgelistet 


ZEILENORIENTIERTER 
ASSEMBLER 


werden können. Wer weiß, wonach 
er sucht, der kann die Bytefolge als 
Suchwort eingeben und den gesam- 
ten Speicher absuchen lassen. 

Dies ist jedoch alles nur Beiwerk, um 
die Funktion, das schrittweise Ab- 
arbeiten von Maschinenprogrammen, 
zu unterstützen. Dabei kann die An- 
zahl der Schritte bestimmt werden, 
in denen der MC-Code abgearbeitet 
wird. Normal und standardmäßig 
vorgegeben ist I. Zwei Versionen des 
Tracing sind möglich: Die Restart 
(RST)-Methode, bei der eine ganze 
Befehlsgruppe in Echtzeit abgearbei- 
tet werden kann, und die übliche 
Tracemethode., bei der das gesamte 
Programm durchgearbeitet wird. 


N 


BREAKPOINTS AUCH FÜR 
DAS ROM MÖGLICH 


Besonders schwierig ist das Durch- 
forsten von ROM-Befehlen: Wäh- 
rend man in einem anderen Maschi- 
nenprogramm Breakpoints setzen 
kann, die das Programm stoppen und 
die Weiterbearbeitung zulassen, kön- 
nen im ROM keinerlei Abbrüche 
markiert werden. Der ‚Tracer‘* läfst 
aber das Setzen eines (nur eines) 
Soft-Breakpointes zu, der die Abar- 
beitung unterbricht und die Regi- 
sterinhalte anzeigt. Zur Veränderung 
stehen diese nach wie vor nicht zur 
Verfügung, jedoch reicht das Ver- 
fahren aus, um vom ROM-Listing 
bessere Kenntnis zu erhalten. 
Das Programm ist so leistungsstark, 
dafs nicht alle Optionen ausführlich 
besprochen werden können. Selbst- 
verständlich ist es möglich, alle An- 
gaben auf den Drucker umzuleiten, 
oder einzulesen und Speicherberei- 
che zu kopieren. 
Das einzige Manko ist das allzu dürf- 
tige Handbuch. Mit effektiven 12 
Seiten Programmbeschreibung kann 
sicherlich nur der etwas anfangen, 
der in der Materie schon recht be- 
wandert ist. Hinzu kommt, daß der 
Stoff recht trocken abgehandelt 
wird. Unbeschadet davon bleibt der 
Tracer jedoch ein hervorragendes 
Werkzeug für alle Maschinensprache- 
Programmierer. 

(GS) 


TEST 


Jeder braucht eine 
Vereins-Verwaltung! 


Die Verwaltung eines Vereins oder 
Clubs erfordert vom Inhaber 

des Ehrenamtes eine gesunde 
Mischung aus Idealismus und 
Durchhaltevermögen, um nicht 
schon nach kurzer Zeit im Wust der 
anfallenden ‚„‚Büroarbeit‘’ zu er- 
sticken. Viele der geplagten Vor- 
stände versichern sich deshalb heute 
des Computerbeistands, für den die 
CPC Computersysteme geradezu 
prädestiniert sind. Ein passendes 
Vereinsverwaltungspaket bietet die 
Firma Byte me in Betzdorf an. 

Ob es für den gestellten Aufgaben- 
bereich geeignet ist, wollen wir 
untersuchen. 

Die Verwaltung eines Vereins ist 
weit umfangreicher, als gemeinhin 
angenommen wird. Das hat man 
bei Byte me richtig erkannt. Folg- 
lich will das Programm auch mehr 
sein als eine erweiterte Adressver- 
waltung. Serienbriefoption und die 
integrierte Buchführung machen 
den Anspruch deutlich. Die einzel- 
nen Programmteile werden über ein 
gemeinsames Hauptmenü angesteu- 
ert und arbeiten interaktiv, das 
heifst, der Zugriff auf bereits vor- 
handene Daten ist in allen Pro- 
grammteilen möglich. 


UMFANGREICHE 
PERSONENDATEN 


Selbstverständlich speichert das 
Byte me-Programm die notwendi- 
gen Anschriftsdaten der Vereins- 
mitglieder, wie man das von den üb- 
lichen Adressverwaltungen gewohnt 
ist. Daneben werden aber noch eine 
Reihe vereinsinterner Daten verwal- 
tet. Beitragsklassen (bis zu 26'), 
Bankverbindungen und die Art der 
Beitragszahlung (monatlich, viertel-, 
halbjährlich) gehören in diesen Be- 
reich. Alle Datenfelder können 
nach Belieben verändert werden 
oder werden auch — wie das Bei- 
tragsfeld — über die Buchführung 
automatisch aktualisiert. Die Daten- 
abfrage erreicht man über die Mit- 
gliedernamen oder mittels Such- 
maske und ‚„Wildcards‘‘. Die ver- 
fügbare Diskettenkapazität be- 
stimmt die Anzahl der erfafibaren 
Mitglieder. Es sind ca. 700. Das Pro- 
gramm verwaltet alle Daten in rela- 
tivem Zugriff. Jeder Datensatz wird 
sofort auf der (Daten-)Diskette ab- 
gelegt. Die alphabetische Reihenfol- 


Während die Freizeit immer 
mehr zunimmt, haben Vereine 
Hochkonjunktur. Die Verwal- 
tung ist fast nur noch mit 
einem Computer zu bewältigen 


ge sorgt dafür, dafs bei Bedarf der 
Zugriff sehr rasch erfolgen kann. 

Alle notwendigen Editiermöglich- 
keiten sind erwartungsgemäß vor- 
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handen. So können einzelne Mit- 
glieder-Daten gelöscht, geändert, an- 
geschaut oder ausgegeben werden. 
Der sehr umfangreiche Menüpunkt 
„nach Maske“ erlaubt es, darüber 


hinaus, umfangreiche Selektions- 
kriterien festzulegen. Ob man nun 
alle ‚Müllers‘ in Hamburg oder alle 
Mitglieder im PLZ-Gebiet 597? 
(Wildcards!) haben möchte, bleibt 
dem Anwender überlassen. Selbst- 
verständlich sind auf diesem Wege 
auch die beliebten ‚‚Geburtstags- 
listen‘ möglich. 


VARIABLE AUSDRUCKS- 
MÖGLICHKEITEN 


Auch die Ausdrucksmöglichkeiten 
lassen kaum einen Wunsch offen. 
Das Format der Mitgliederliste kann 
vorher vom Anwender festgelegt 
werden. Die Auswahl der auszudruk- 
kenden Mitglieder bestimmt man 
anhand der bereits beschriebenen 
Auswahlkriterien, auf die man auch 
beim Etikettendruck oder den Last- 


schriftkarten bzw. Lastschrifteinrei- 
chungslisten zurückgreifen kann. 
Daßs all diese Programmoptionen 
‚praxisnah durchdacht sind, zeigt 
sich an vielen komfortablen Kleinig- 


keiten, die der Nutzer in der Instal- 
lationsroutine des Programms fest- 
legen kann. Ob Sie lieber gleich 
Briefumschläge statt Adressaufkle- 
ber drucken möchten, kann ebenso 
bestimmt werden wie der Verwen- 
dungszweckhinweis auf der Last- 
schriftkarte. Notwendige Rechnun- 
gen, wie das Aufaddieren der Mit- 
gliedsbeiträge in der Lastschrift- 
liste, erledigt das Programm selbst- 
tätig. 


ZWECKMÄSSIGE 
SERIENBRIEFOPTION 


Die integrierte Serienbriefgestaltung 


ist keine Textverarbeitung im übli- 
chen Sinn, da wichtige Textverarbei- 
tungsmerkmale (z.B. Blocksatz) feh- 
len. Sie erfüllt ihren Zweck aber in 

- der Praxis ohne gravierende Ein- 


TEST 


schränkungen. Die verfügbare Text- 
länge ist mit max. 150 Zeilen (je 

70 Zeichen) zwar nicht überwälti- 
gend, reicht in der Regel aber aus, 
um auch umfangreiche Rundschrei- 
ben zu tätigen. Editierfunktionen 
im Text sind vorhanden und durch 
sinnvolle Sonderfunktionen ergänzt. 
So erzwingt z.B. “.page‘‘ in einer 
einzelnen Zeile einen Seitenvor- 
schub, und mit <CTRL+ P> und 
dem Druck einer Buchstabentaste 
(inverse Darstellung im Text) kann 
man die Datensatzfelder der 
„Adressverwaltung“ in den Brief 
einsetzen. Beim Ausdruck setzt das 
Programm dafür die aktuellen Werte 
ein. Entsprechend wird auch der 
Briefkopf eines Serienbriefes defi- 
niert. Alle fertigen Briefe oder For- 
mulare können auf Diskette abge- 
legt und bei Bedarf wieder geladen 
werden. Beim Ausdruck kann wie- 
der (wie beschrieben) nach Such- 
maske ausgewählt werden. Das Pro- 
gramm liest übrigens auch beliebi- 
ge ASCII-Textdateien, so dafs bereits 
bestehende Briefe übernommen wer- 
den können. Der Brieftext bleibt 
auch nach Rückkehr ins Hauptme- 
nü (aufser 464/664) im Rechnerspei- 
cher erhalten. Man kann also durch- 
aus das Unterprogramm wechseln, 
ohne daß Text verlorengeht. 


LEISTUNGSSTARKE BUCH- 
HALTUNG NUR FÜR DEN 6128 


Mit der integrierten Buchführung ist 
die Verwaltung von 60 Buchungs- 
konten möglich. Das ist nicht weni- 
ger, als so manches andere Buchhal- 
tungsprogramm zu offerieren hat. 
Bis auf das für die automatische Ver- 
buchung der Mitgliedsbeiträge reser- 
vierte Konto Nr. 1 sind alle anderen 
Konten beliebig als Einnahme- oder 
Ausgabekonten festlegbar. Folglich 
kann sowohl nach dem Einnahme- 
Überschuß-Muster als auch nach dem 
Doppelbuchungsverfahren (Konto-/ 
Gegenkonto) vorgegangen werden. 
Nach der Kontendefinition (Menü- 
punkt I) kann man sich zur Über- 
sicht zunächst alle Konten ausdruk- 
ken lassen: wahlweise mit den Beträ- 
gen des aktuellen Monats und der 
entsprechenden Bilanz. Um zu bu- 
chen, kann man entweder ein Ein- 
gabeverfahren bei wahlfreier Konto- 
nummer in Anspruch nehmen oder 
für die Mitgliedsbeiträge den automa- 
tischen Buchungsmodus auf das Bei- 
tragskonto Nr. ] wählen. Alle Bu- 
chungen protokolliert der Drucker 
auf Wunsch mit, sodaß Fehler leicht 
zu korrigieren sind. Weiterhin sind 
im Buchführungsteil alle nötigen 
Übersichten abrufbar. Der Stand al- 
ler Beiträge und die Darstellung der 
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Konten nach Nummern oder Art 
(Einnahmen-/Ausgabenkonto) sind 
jederzeit abrufbar. Entsprechend 
kann man Einblick in die Monats- 
und Jahresübersicht nehmen. 


ANSPRECHENDE 
MENÜFÜHRUNG 


Das ..Byte me‘‘-Programm ist durch- 
gängig menügesteuert. Die Bild- 
schirmübersichten und die Bediener- 
logik sind ohne Fehl und Tadel, so- 
daf3 komfortablem Arbeiten nichts 
im Wege steht. Sicherheitsabfragen 
und Abbruchmöglichkeiten sind an 
allen Gelenkstellen mit sicherem 
Gespür für das Notwendige eingebaut 
worden. Der Anwender wird es zu 
schätzen wissen. Damit der Disket- 
tenwechsel im Rahmen des Erträg- 
lichen bleibt, ist allerdings ein zwei- 
tes Laufwerk notwendig. Feste 
Texteingaben sind über ein Extra- 
Installationsmenü zu erreichen. 

Dort kann man auch festlegen, 

ob alle Druckerausgaben auf den 
Bildschirm umgeleitet werden sol- 
len. Dem Anwender spart dies nicht 
nur am Anfang Zeit und Papier. 


BEHEBBARE MÄNGEL 


Die hier vorgestellte Vereinsverwal- 
tung hat insgesamt durchaus über- 
zeugt. Jedenfalls ist sie weit besser 
als viele Konkurrenzprodukte. die 
wir auf den CPC's bisher gesehen 
haben. Trotzdem halten wir zwei 
Anderungen in diesem Programman- 
gebot für dringend geboten: Zum 
einen sollte der Anbieter bei den 
Serienbriefen die Möglichkeit schaf- 
fen, den Disketteninhalt auf den 
Bildschirm zu holen, damit man sich 
vergewissern kann, wie die vor Mo- 
naten abgelegte Textdatei nun heißt. 
Zum anderen kann die mitgelieferte 
Dokumentation in keiner Weise 
überzeugen. Die mit 11 Seiten wirk- 
lich spartanisch aufgemachte Lose- 
blattsammlung verdient den Namen 
„Handbuch“ wirklich nicht. Entspre- 
chend kärglıch fällt der Informa- 
tionsgehalt aus, der sich auf das 
„Allernotwendigste‘“ beschränkt. 
Unerfahrene CPC-User (bei vielen 
Vereinen muß damit gerechnet wer- 
den) werden mit diesem Heftchen 
ihre liebe Mühe haben. Das sollte der 
Anbieter schnellstens ändern, dann 
weiß dieses Programmpaket in allen 
Punkten zu gefallen. Der aktuelle 
Preis von 148,— DM dürfte einer Ver- 
breitung des Programms sicher nicht 
im Wege stehen, zumal individuelle 
Programmanpassungen auf Wunsch 
von der Vertreiberfirma vorgenom- 
men werden. Auch eine Joyce Ver- 
sion ist lieferbar. 


Statistik : 


TIPS & TRICKS 


Fäalschen Sie 
ihre Daten 
doch selbst! 


Der Begriff Statistik ver- 
bindet sich oft mit end- 

- losen Zahlenreihen und 
einer mehrdeutigen Inter- 
pretation der Werte, je 
nach Standort des Be- 
trachters. Wie oft hört 
man den leichtfertigen 
Satz: „Ich glaube nur an 
jene Statistik, die ich 
selbst gefälscht habe.‘ 
Das mag für ein paar 
Werbeumfragen gelten, 
die Wirklichkeit sieht je- 
doch etwas anders aus: 
Die mathematische 
Statistik liefert exakte 
Ergebnisse durch festge- 
legte Formeln. Ein trocke- 
nes Thema, gewiß, aber 
auch ein wichtiges. 


In fast jedem Berufsbe- 
reich werden diese Be- 
rechnungen durchgeführt. 
Lehrer bearbeiten den 
Notendurchschnitt auf 
der Suche nach dem er- 
hofften Erfolg, Kaufhäu- 
ser erkennen, ob der Um- 
satz gestiegen ist, und für 
den naturwissenschaftli- 
chen Bereich sind Stati- 
stiken selbstverständlicher 
Alltag geworden. Dabei 
darf man sich aber nicht 
vorstellen, dafs hier immer 
ein Rechenzentrum mit 
leistungsfähiger Software 
benutzt wird. Im Gegen- 
teil: Gerade hier zeigen 
eher die Kleincomputer 
ihre wahre Meisterschaft. 
Der eingebaute Basicinter- 
preter läfst zu, dafs ‚eben 
schnell“ eine individuelle 
Formel eingegeben und 
berechnet wird. So 
kommt es, das so mancher 
Homecomputer nicht zu 
Hause, sondern im Labor 
oder im Lehrerzimmer 
steht. 

Unser Autor Werner Arndt 
hat dazu einen Artikel ge- 
schrieben und mit beispiel- 
haften Listings ergänzt. 


Sie lesen hier den ersten 
Teil. der - wie könnte es 
anders sein — beim Mittel- 
wert anfängt. 


DER MITTELWERT — 
GRUNDLAGE ALLER 
STATISTIK 


Eine einfache und sicher 
jedem bekannte Methode. 
sich aus einer Reihe von 
Zahlen einen einzigen 
durchschnittlichen Wert 
zu errechnen. ist die Bil- 
dung des Mittelwertes. 
Diese Berechnung voll- 
führt jeder schnell im 
Kopf. ohne sich darüber 
im Klaren zu sein. dafs er 
hierbei schon die Grund- 
lagen der Statistik be- 
müht. Wenn Sie nach einer 
Feier die leeren Flaschen 
zählen. dabei feststellen. 
dafs jeder einzelne Ihrer 
10 Gäste zwei Flaschen 
Bier getrunken haben 
mufs (weil der Kasten nun 
mal leer ist), dann haben 
Sie bereits eine mathe- 
matische Aussage getrof- 
fen. Dals diese nicht stim- 
men mus. wissen Sie 
selbst. Jene zwei Flaschen 
nennt man ,.das arithme- 
tische Mittel‘. das aber 
nicht von jedem konsu- 
miert werden mußte. 

Der Mittelwert hat eine 
bestimmte Anzahl von 
Werten, die gröfser und 
kleiner sind als er selbst. 
Die Abweichung eines 
Wertes vom Mittelwert be- 


zeichnet man als Differenz. 


Man könnte also für jeden 
einzelnen Wert die Diffe- 
renz vom Mittelwert er- 
rechnen und bereits eine 
Aussage über Abweichun- 
gen treffen. 

Da der Mittelwert für spä- 
tere statistische Berech- 
nungen eine wichtige 
Größe ist, muß er durch 
eine kleine Routine be- 


stimmt werden (Listing 1). 


In den Zeilen 30 und 40 
wird die Anzahl der Werte 
festgelegt und die Varia- 
ble >wert< dimensioniert. 
In den Zeilen 50-80 wer- 
den die einzelnen Werte 
in einer Schleife eingege- 
ben und in Zeile 70 die 
Summe errechnet. Die 
Variable >miwert< ist 
dann die Summe aller 
Werte dividiert durch die 
Anzahl. 


ANDERE MITTEL- 
WERTE: FÜR JEDEN 
ETWAS 


Da wir schon die Bezeich- 
nung ..arithmetischer 
Mittelwert‘ erwähnt ha- 
ben, liegt es auf der Hand. 
dafs es noch andere geben 
muls. Der Vollständigkeit 
halber wollen wir wenig- 
stens ein paar davon auf- 
führen. Wenn mit Werten 
gearbeitet werden mul. 
bei denen eine grofse 
Streuung auftritt. benutzt 
man den logarithmischen 
Mittelwert. Dies betrifft 
vor allem die grafische Aus- 
wertung. Wie könnte man 
sonst einen Millionär und 
einen Normalverdiener in 
einer Skalierung unterbrin- 


5 "tisting 1 


Mittelwertberechnung 


gen? Eben nur, indem man 
beide in ihren Logarith- 
mus umwandelt. Diese 
Möglichkeit haben Sie 
auch im Listing, ohne des- 
halb mehr Arbeit zu ha- 
ben. Die Zeile 70 muß nur 
heitsen: 
sum=sum+LOG(wert(i)) 
Beachten Sie aber. dafs Sie 
(völlig richtig) ein loga- 
rithmisches Ergebnis er- 
halten. 

Da Sie hoffen, die Lern- 
fähigkeit der Schüler ein- 
mal bemessen zu können, 
gelten Lehrer wohl als 
Statistik-Fans. Auf diese 
Weise kommen auch Schü- 
ler mit zwei Mittelwert- 
Varianten in Berührung. 
die wir deshalb kurz er- 
wähnen sollten: Da gibt 
es das ‚‚gewogene arith- 
metische Mittel“, wenn 
Mittelwerte verglichen 
werden müssen, die aus 
unterschiedlichen Mengen 
ermittelt wurden. Wenn 
der Lehrer also schon wie- 
der einmal die hervorra- 
genden Leistungen der 
Parallelklasse als lobendes 
Beispiel erwähnt, dann 
darf man ruhig fragen, ob 
diese Einschätzung auch 
auf dem gewogenen arith- 


Werte = ";waonz 


Wert",: INPUT wert(i) 


1m FF: 

2N CLS 

3% INPUT"Anzahl der 
aan DIM wert(waonz):CU5 
sa FOR 31-1 TO wanz 

68 PRINT ,i;". 

7PR sum-sum+twert(i) 

8P NEXT i 

9A miwert=sum/wanz 


1BB PRINT"Mittelwert 


von 


":miwert. 


Strichliste **# 


";punkte 
";striche 


"-sumstri+tstriche 


"" THEN 98 


128 


5 "Tjisting ? 

iB ’*=* Mittelwert 
29 GIS 

3# TNPUT"Punkte 

AB INFPUlI"”erreicht 
5P multi punkte*striche 
6R sum - sumtimulti 
7R sumst ri 

89 multi=® 

98 a$-INKEY$:TT 3$ 
188 IF a$° "e” THUN 


118 G0TOD 28 


128 CLS:PRINT"Mittelwert : 


mstri 
ı3rn END 
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”",sum/su 


metischen Mittel beruht. 
Aber Vorsicht, es gibt 
auch nachtragende Lehr- 
körper. 

Der Median oder auch 
Zentralwert liefert dage- 
gen eine mathematische 
Statistik für Schüler. 

Sie merken schon, mit 
ihr ist alles machbar. Der 
Zentralwert ist nämlich 
genau jener, der eine 
Reihe von Meßwerten 
halbiert. Bei einer Klas- 
senarbeit (ausnahmswei- 
se nur drei Schüler, die 
anderen schwänzten) mit 
den Noten 2, 5 und 

ist der Median die Fünf. 
Treibt man die Ausrede 
auf die Spitze, dann darf 
man sagen, man habe im- 
merhin den Zentralwert 
erreicht. Jedenfalls hört 
sich diese Erklärung schö- 
ner an als ein „„Unbefrie- 
digend“. 


STRICHLISTE: EINE 


PRAKTISCHE 
ANWENDUNG 


Zur Auswertung von 
Strichlisten wird die Be- 
setzungszahl (wie oft ein 
bestimmter Punkt erreicht 
worden ist) zur Mittel- 


wertbildung herangezogen. 


Beispiel: Bei einem Sport- 
wettkampf kann man 

12 Punkte erlangen. In 
einer Strichliste wird fest- 
gehalten, wie viele Sport- 
ler wieviele Punkte er- 
reicht haben. 


5 *Listing 3 
18 ’*=* Varianz 
2B CLS 


3@® INPUT"Anzahl der Werte 


nz 


TIPS & TRICKS 


Punkte Erreicht von 


..Sportiern 
2 4 
3 5 
4 f. 
5 11 
6 13 
7 18 
8 14 
9 10 
10 9 
11 6 
12 3 


Den Mittelwert errechnet 
man durch Multiplikation 
der einzelnen Spalten und 
Addition der Ergebnisse. 
Diese Summe wird durch 
die Summe der Besetzungs- 
zahlen dividiert (Mittel- 
wert = 7,04). 

(Listing 2) 


In den Zeilen 30-50 werden 


die Punkte und die Beset- 


zungszahl (Striche) einge- 
geben und miteinander 
multipliziert. In Zeile 60 
wird die Summe gebildet 
und das Ergebnis der Mul- 
tiplikation in Zeile 80 
gelöscht. In Zeile 70 wird 
die Summe der Striche 
gebildet. Da die Routine 
als Endlosschleife aufge- 
baut ist, wird in den Zei- 
len 90 und 100 eine Ab- 
bruchbedingung eingesetzt. 
Ist man mit der Eingabe 
fertig, wird am Ende ein 
„e“ eingegeben. Es er- 
folgt dann ein Sprung zu 
Zeile 120, die den Mittel- 
wert ausgibt. 


De 


";:werta 


49 DIM wert(wertanz) ‚abweich(wertan 
z) ‚abwquad( wertanz) :CLS 


59 FOR i-1 
68 PRINT;i;"”.Wert 
) 


790 sum=-sumtwert(i) 


88 NEXT i 


TO wertanz 


",:INPUT wert(i 


98 miwert=sum/wertanz 


198 
118 
128 
138 
148 NEXT i:CLS 
1598 PRINT"Varianz 
anz-1) 


FOR i=1 


TO wertanz 
abweich( i)=miwert-wert(i) 
abwquad( i)=abweich( i) "2 
sumabqu=sumabqu+tabwquad(i) 


"-sumabqu/( wert 


Neben dem Mittelwert 


-benutzt man zur Beurtei- 


lung einer Zahlreihe oder 
Stichprobe die Abwei- 
chungsquadrate. Die Va- 
rianz ist die Summe der 
Abweichungsquadrate, 
dividiert durch den um | 
verminderten Umfang der 
Stichprobe (Anzahl der 
Zahlen). So trocken hört 
sich jedenfalls die mathe- 
matische Erklärung an. 
Aber es ist gar nicht so 
kompliziert. Kommen wir 
noch einmal zu dem Ka- 
sten Bier aus dem ersten 
Beispiel zurück: Da haben 
wir die Behauptung aufge- 
stellt, jeder Gast habe 
zwei Flaschen getrunken. 
Als statistische Maßzahl 
ist dies sehr ungenau, Si- 
cherlich waren einige da- 
bei, die sich am Selters- 
wasser gütlich getan ha- 
ben; dafür hat vielleicht 
eine durstige Seele et- 
was mehr getrunken. 
Wichtiger als der Durch- 
schnitt ist also jeweils die 
Abweichung vom Mittel- 
wert oder — behält man 
die Gesamtheit im Auge — 
die Summe der Abwei- 
chungen. 

Es wird also der Mittel- 
wert bestimmt und vom 
Mittelwert die Differenz 
zu jeder einzelnen Zahl 
errechnet. Ist der Mittel- 
wert zum Beispiel 1,97 
und die erste Zahl 1,08, 
so ist die Abweichung 
0,89. Diese Abweichung 
wird quadriert und zur 
nächsten Berechniung 
addiert. Wäre die nächste 
Zahl 1,11, so beträgt die 
Abweichung 1,97—-1,11 

= 0,86. Die Abweichung 
wird wieder quadriert 
und zum ersten Ergebnis 
hinzugezählt. 

Nach Beendigung wird die 
so erhaltene Summe der 
Abweichungsquadrate 
durch die um 1 verminder- 
te Anzahl des Umfangs 
dividiert. Hatte man zum 
Beispiel 40 Zahlen, so muß 
die Summe der Abwei- 
chungsquadrate durch 39 
geteilt werden. 


VARIANZ-LISTING 


Weil dies nun doch wieder 
recht trocken geriet, gleich 
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die Umsetzung in ein 
BASIC-Listing (Listing 3): 
Das kleine Programm darf 
und soll für die eigenen 
Ansprüche geändert wer- 
den. So ist es vielleicht ei- 
ne Hilfe, wenn man in der 
Eingabeschleife einen Zäh- 
ler mitlaufen läßt und die 
Schleife durch eine be- 
stimmte Eingabe abbre- 
chen kann. Die Zählvaria- 
ble dient dann als Summe 
der Werte (Achtung: -1). 
So kann man sich das Ab- 
zählen der Werte vor der 
Eingabe ersparen. 
Nach Dimensionierung 
der Variablen für die Wer- 
te, Abweichungen vom 
Mittelwert und Abwei- 
chungsquadrate in Zeile 40 
werden die einzelnen Zah- 
lenwerte eingegeben, die 
Summe errechnet und der 
Mittelwert gebildet (Zei- 
len 50-90). 
In Zeile 110 wird die Ab- 
weichung eines jeden Wer- 
tes vom Mittelwert be- 
rechnet und diese in Zeile 
120 quadriert. Es folgt die 
Bestimmung der Summe 
der Abweichungsquadrate 
(Zeile 130). Die Varianz 
errechnet sich dann aus 
der Summe der Abwei- 
chungsquadrate (sumabqu) 
dividiert durch die um | 
verminderte Anzahl der 
Werte (wertanz —1). 
Damit wollen wir es für 
heute mal gut sein lassen, 
auch wenn es vielleicht zu 
wenig ist. Was Sie auf die- 
sen Seiten gelesen haben, 
beherrscht immerhin 
schon ein billiger Taschen- 
rechner. Doch ganz abge- 
sehen davon, daß es immer 
gut ist, die Theorie zu ken- 
nen, gibt es noch ein paar 
andere Gründe, sich damit 
zu befassen: Erstens ist 
ein CPC wesentlich lei- 
stungsfähiger als jeder Ta- 
schenrechner. Die Wert- 
tabellen dürfen um ein 
Vielfaches größer sein und 
können auch abgespei- 
chert werden. Zum zwei- 
ten werden im zweiten 
Teil einige Berechnungen 
erwähnt, die Sie nicht im 
Taschenrechner finden. 
Dies reicht sogar bis zu 
einer einfachen, aber an- 
schaulichen Grafik der 
linearen Regression. 
(GS/Werner Arndt) 


SERIE 


WIR PROGRAMMIEREN Um also beispielsweise 
IN MASCHINENSPRACHE das Doppelregister AF 


Bevor wir mit den eigent- 


lichen Themen, die für 
dieses Heft vorgesehen 
sind, beginnen, noch ein 
kleiner Nachtrag zum 
Artikel über die Maschi- 
nensprache im letzten 
Heft. Die meisten ROM- 
Meldungen (vielleicht so- 
gar alle?) sind mit einem 
Null-Byte abgeschlossen, 
wodurch die im letzten 
Heft abgedruckte Routi- 
ne zum Auslesen der 
ROM-Texte, die auf ein 
Null-Byte abfragt, ganz 
universell eingesetzt wer- 
den kann. Sie müssen 
lediglich die Textanfänge 
wissen! Diese können 
mittels eines kleinen 
Monitor-Programmes 
schnell gefunden werden, 
wenn das Programm den 
Zugriff auf ROMs erlaubt 
und neben der Ausgabe 
des Hexdumps auch 
noch die ASCII-Zeichen 
ausgibt. Aber auch mit 
einer Variante des 
Programms aus dem letz- 
ten Heft kann man nach 
Texten suchen. 


Hierzu muß als Ausgabe- 
Routine &BB5D (anstelle 
von &BB5A) benutzt 
werden. Kurz zu den Un- 
terschieden der beiden 
Zeichenausgabe-Rou- 
tinen: 

&BB5A 

beachtet bei der Ausgabe 
die Steuerzeichen, d.h., 
diese werden ausgeführt. 
Die Registerinhalte und 
Flags bleiben erhalten. 
&BBS5D 

gibt die Steuerzeichen 
aus. Das bedeutet: Sie 
werden nicht ausgeführt, 


auf den Stack zu retten, 
lautet der Befehl: PUSH 
AF. Durch diese Aktion 
wird der Inhalt der beiden 
Register nicht verändert, 
sondern lediglich eine Ko- 
pie davon auf den Stack 
gelegt. Genauso kann es 
auch bei den anderen Dop- 
pelregistern gehandhabt 
werden. Lediglich der 
Name des Doppelregisters 
ändert sich. 

Sollen später die ursprüng- 
lichen Werte wieder ge- 
holt werden, kann dies 
mit dem Befehl POP ge- 
schehen. 

Es muß allerdings berück- 
sichtigt werden, daß der 
Stack nach dem Prinzip 
„First in — Last out‘ be- 
dient werden muß. Das 
bedeutet, daß der erste 
Wert, der „gePUSHed“ 
wurde, als letzter abgeholt 
wird. Damit Sie das Prin- 
zip besser verstehen, hier 
der Vorgang in Assembler: 


PUSH AF 

PUSH BC 

PUSH DE 

PUSH HL 

POP HL 

POP DE 

POP BC 

POP AF 

ret 

Sie sehen, der Wert,der 
als letztes auf den Stack 
gelegt wurde, wird als er- 
ster wieder geholt! 

Da der CPC bzw. der Pro- 
zessor aber nicht weiß, 

in welcher Reihenfolge die 
Registerinhalte abgelegt 
wurden, müssen Sie die 
richtige Reihenfolge be- 
achten. 

Andererseits aber können 
auf diese Weise Register- 
inhalte auch ausgetauscht 
werden. 

Beispiel: 


PUSH DE 


sondern als „‚Grafikzeichen‘‘ PUSH HL 


dargestellt. Bei der Ab- 
arbeitung dieser Ausgabe- 
Routine werden aber alle 
Register verändert und 
müssen deshalb vor dem 
Aufruf gerettet werden. 


Das ‚„Retten‘ der Register 


geschieht sinnvollerweise 
durch die Ablage auf den 
Stack. Hierbei findet der 


POP DE 

POP HL 

Durch diese Folge werden 
die Inhalte der beiden 
Doppelregister DE und 
HL ausgetauscht. Dieser 
Vorgang wäre aber auch 
durch den Befehl EX DE, 
HL möglich gewesen! 
Soviel noch als Nachtrag 


Befehl PUSH Verwendung. zum letzten Heft. 


Diesmal wollen wir uns 
im ersten Abschnitt ein- 
mal mit der Diskette, und 
zwar speziell mit den 
User-Nummern, beschäf- 
tigen. Die User-Nummer 
dient (speziell unter 
CP/M) dazu, einzustellen, 
welches Inhaltsverzeich- 
nis auf der Diskette ge- 
rade aktiv ist. 


DIE USER-NUMMER 


Dadurch ist es möglich, 


spezielle ‚„‚Einteilungen“ 


auf der Diskette vorzuneh- 


men. Aber auch von Basic 
aus kann mittels der User- 
Nummer gearbeitet wer- 
den. Auf beiden Betriebs- 
system-Ebenen (Basic 
oder CP/M) können aber 
nur User-Nummern von 
0-15 benutzt werden. 
Doch es sind alle Num- 
mern von O bis 255 ein- 


den, angezeigt! Der Nut- 
zen: ein versehentlich 
gelöschtes File laden, die 
Usernummer wieder zu- 
rückstellen und das File 
neu zurückschreiben. So 
einfach geht das also! 

Sie können mittels der 
Usernummern aber auch 
Files vor fremden Ein- 
blicken verstecken, denn 
normalerweise sind ja nur 
Usernummern bis 15 mög- 
lich; wenn Sie aber ande- 
re benutzen, sind diese 
für einen Normalanwen- 
der unsichtbar. Ein ein- 
facher, aber gar nicht so 
schlechter Schutz. Nur, 
einem Maschinensprache- 
Programmierer bereitet 
eine solche Technik kei- 
ne Probleme. Und auch 
Ihnen nicht, denn Sie ha- 
ben ja erfahren, wie man’s 
macht! 

Mittels des o.g. Pokebe- 


So einfach: 
vor fremden 


verstecke 
der User Nu 


stellbar; man muß nur wis- 
sen, wie! Eine der Num- 
mern hat dabei eine Son- 
derstellung: &E5. Dieser 
Wert wird bei der Disket- 
tenfileverwaltung als 
Zeichen für gelöschte Files 
benutzt. 


Mittels User-Nummern über 


15 ist es möglich, ganz 
besondere Effekte zu er- 
reichen. Das einfachste 


Beispiel hierfür ist die Aus- 


gabe der Namen gelösch- 
ter Diskettenfiles. 


GELÖSCHTE 
FILES RETTEN! 


Gleich zur Praxis. Wer 
keine Zusatz-ROMSs ange- 
schlossen hat, kann ver- 
suchsweise einmal den 
Basicbefehl: POKE 
&A701,&ES5 eingeben und 
danach den Befehl CAT. 
Nun werden alle Fileein- 
träge, die gelöscht wur- 


fehls kann es aber Proble- 
me geben, und zwar bei- 
spielsweise dann, wenn 
irgendwelche ROM-Er- 
weiterungen eingesetzt 
werden. Denkbar sind 
aber auch noch andere 
Gründe, weshalb die Spei- 
cherstelle für die User- 
nummer sich an einem an- 
deren Ort im RAM-Spei- 
cher befindet. 


WO IST DER VER- 
SCHIEBBARE FLOPPY- 
RAM-BEREICH? 


Die Diskettenstation be- 
nötigt, wie Sie sich be- 
stimmt vorstellen können, 
RAM-Speicher für unter- 
schiedlichste Parameter. 
Diese Speicher sind aber 
nicht in der Diskettensta- 
tion enthalten, sondern 
werden dem CPC von sei- 
nem Arbeitsspeicher weg- 
genommen. Das ist der 
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Grund, weshalb ein CPC 
ohne Diskettenlaufwerk. 
mehr freien Speicherplatz 
zur Verfügung hat als einer 
mit Disk-Drive. 

Ein Teil des vom Lauf- 
werk benötigten Informa- 
tions-Speicherplatzes liegt 
mit seinen Adressen aber 
nicht fest, sondern ist 
„verschieblich‘‘. Je nach 
Konfiguration des CPCs 
(oder auch je nach Wunsch 
eines Maschinenprogram- 
mierers) ist dieser Spei- 
cherbereich ‚irgendwo‘! 
Das bedeutet andererseits 
aber, daß auch Speicher- 
stellen vorhanden sein 
müssen, aus denen der 
CPC sein Wissen, wo denn 
dieser verschiebliche Teil 
zu finden ist, abholen 
kann. Wie üblich, werden 
für eine derartige Speicher- 
adresse zwei Bytes benö- 
tigt. Diese sind in den bei- 


den Adressen &B7ED 
und &B7EF enthalten. 
Wenn wir also auf Spei- 
cherstellen des verschieb- 
lichen Disk-RAM-Berei- 
ches zugreifen wollen, 
dann müssen wir in die- 
sen beiden Adressen 
nachsehen ,wo sich der 
Start dieses Disketten- 
RAM-Blockes befindet. 
Da wir — obwohl durch 
PEEK und POKE auch 
von Basic aus zugegrif- 
fen werden kann — auf 
Maschinensprache-Ebene 
arbeiten wollen, schrei- 
ben wir eine kleine Rou- 
tine, mittels derer die 
User-Nummer auf belie- 
bige Werte zwischen 
O und 255 gesetzt wer- 
den kann. 
Ein derartiges Pro- 
gramm hat nur wenige 
Bytes Umfang: 

VFRAM equ &BE7D 

ORG &A000 
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CP A,| 

RET NZ 

LD HL,(VFRAM) 
INC HL 

LD HL 

LD A,(IX) 

zb (HL),A 


Besprechen wir gleich die- 
se Routine. 

VFRAM equ &BE7D 

legt fest, daß immer 
dann, wenn VFRAM im 
Programm auftritt, die- 
ses Label durch den Wert 
&BETD ersetzt wird. 
Durch ORG & A000 wird 
bestimmt, für welchen 
Speicherbereich die Routi- 
ne assembliert werden 
soll. 

Wie wir schon des öfteren 
geschrieben haben, ent- 
hält der Akkumulator 
(Register A) bei einem 
Call-Aufruf die Anzahl 
der mitgegebenen Parame- 
ter. Durch CP A, wird 
also festgestellt, ob die 
Anzahl der mitgegebenen 
Werte unserer Forderung 
entspricht. Für unser 
Vorhaben heißt das, daß 
ein Wert, nämlich die ge- 
wünschte User-Nummer, 
vorhanden sein muß! 
Wurde ein Wert mitgege- 
ben, dann wird beim Pro- 
grammlauf die Zero- oder 
auch Null-Flagge gesetzt 
und das Programm 

macht weiter. Ist dies 
aber nicht der Fall, erfolgt 
sofort die Rückkehr zur 
aufrufenden Routine. 
Beim Aufruf von Basic 
aus erfolgt deshalb der 
Rücksprung auch wieder 
zu Basic. 

Diese Rückkehr wird 
durch RET NZ (Zurück, 
falls Null-Flagge nicht ge- 
setzt) bewirkt. Falls aber 
genau ein Wert beim Auf- 
ruf übergeben wurde, wol- 
len wir diesen ja als neue 
User-Nummer benutzen. 
Hierzu müssen wir aber 
wissen, wo denn die Spei- 
cherstelle für die User- 
Nummer im Augenblick 
ist. Diese Information be- 
kommen wir, wenn wir 
nach der Anfangsadresse 
des verschieblichen Disk- 
System-RAM abfragen 
und den entsprechenden 
Offset der Speicherstelle 
für die User-Nummer 
addieren. 


Wieder einmal benutzen 
wir aus Komfortgründen 
ein Doppelregister als 
Zeiger. Das HL-Register 
ist hierzu sehr gut geeig- 
net. Die Mnemonic-Folge 
LD HL,(VFRAM) 
bewirkt, daß die Anfangs- 
adresse des gesuchten 
Floppy-RAM-Bereiches in 
das HL-Register über- 
nommen wird. Da an die- 
ser Adresse aber nicht die 
Speicherstelle für die User- 
Nummer ist (sie ist für das 
angemeldete Laufwerk zu- 
ständig), müssen wir zum 
Wert in HL noch eines ad- 
dieren. (Haben Sie bitte 
Verständnis, daß wir an 
dieser Stelle keine Aufstel- 
lung der Bedeutungen der 
einzelnen Floppy-RAM- 
Speicherstellen bringen 
können, es wäre einfach 
zu umfangreich, und ande- 
re Informationen müßten 
dann entfallen!) 
Die einfachste Art, zum 
Inhalt des HL-Registers 
den Wert eins zu addie- 
ren, ist, den Befehl INC 
HL zu verwenden, da die- 
ser den Wert um eins er- 
höht. Nun zeigt HL auf die 
gewünschte Speicherstelle, 
in die wir schreiben wol- 
len. Bevor wir diesen Vor- 
gang durchführen, müssen 
wir aber noch den Wert 
der User-Nummer holen. 
Dies könnte beispielswei- 
se durch LD A,F erreicht 
werden, denn nach einem 
CALL-Befehl mit Parame- 
tern befindet sich im DE- 
Doppelregister der letzte 
mitgegebene Wert. In unse- 
rem Beispiel haben wir es 
anders gelöst, wir holen 
den Wert aus dem Spei- 
cher. Die Folge LDA, 
(IX) lädt in den Akku 
ebenfalls den gewünsch- 
ten Wert, denn IX zeigt ja 
auf die Speicherstelle, ab 
der mitgegebene Werte 
stehen. Nun brauchen wir 
nur noch den Wert in die 
durch HL adressierte 
Speicherstelle schreiben, 
das geschieht durch LD 
(HL),A. Zum Abschluß 
wird durch RET wieder 
zur Aufruf-Ebene (Basic) 
zurückgekehrt. 
Da in dieser Routine, mit 
Ausnahme des RAM-Zei- 
gers, keinerlei absolute 
Adressen Verwendung 
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fanden, kann sie über- 
all im Speicher stehen 
und dort aufgerufen wer- 
den. Die hexadezimale 
Zeichenfolge für sie 
lautet: 

FE 01 CO 2A 7D BE 

23 DD 7E 00 77 C9 
Wer will, kann diese Rou- 
tine selbstverständlich 
auch als RSX aufbauen. 
Aber erstens wird sie 
dann länger, und zweitens 
wird es für den Nicht- 
Assembler-Besitzer schwie- 
riger, sie zu implementie- 
ren. — Ach so, fast hätte 
ich es vergessen, der 
Basic-Aufruf lautet: CALL 
Startadresse der Routine, 
User-Nummer. 
Damit sind wir am Ende 
des ersten Themas ange- 
langt. Vielleicht haben 
Sie es schon bemerkt: In 
fast jedem Heft bringen 
wir zum Thema Maschi- 
nensprache eine kleine ein- 
fache Routine, um Neulin- 
gen zu helfen. Dem folgt 
eine umfangreiche Routi- 
ne, auf die wir aus Platz- 
gründen nicht so ausführ- 
lich eingehen können, die 
aber trotzdem ausreichend 
kommentiert wird. 


DER MAXAM 
ASSEMBLIERT INS 
RAM 


Als zweites Thema wieder 
etwas ganz Spezielles: 

Wir lassen die durch den 
MAXAM erzeugten Aus- 
gaben beim Assemblieren 
in den Speicher schreiben, 
um sie vor einem weiteren 
Ausdruck mittels eines 
Textverarbeitungsprogram- 
mes nachbearbeiten zu 
können. Wir gehen dabei 
von der MAXAM-Version 
als ROM-Modul aus, bei 
der Diskettenversion müs- 
sen ggf. noch verschiede- 
ne Anpassungen gemacht 
werden. 

Neben der üblichen 
Assemblierung von ASCII- 
Quellcodes — aus dem be- 
reits aufgerufenen 
MAXAM-Menü — erlaubt 
es dieser Assembler auch, 
den Quellcode aus einem 
Basic-File umzusetzen. 
Mit anderen Worten: Die 
Mnemonic des Quellcodes 
kann auch in einem Basic- 
Listing stehen und erst » 


während des Programmlau- 
fes umgesetzt werden. 

Da von dieser Methode 
(aus Unwissenheit) nur 
wenige MAXAM-Besitzer 
Gebrauch machen, wollen 
wir auch dazu diesmal ein 
Beispiel geben. 

Doch zuerst zu den Vor- 
überlegungen: Durch den 
MAXAM-Befehl LISTP 
wird während der Assem- 
blierung gleichzeitig auch 
die Druckerausgabe durch- 
geführt. Dabei wird Zei- 
chen für Zeichen an den 
Centronics-Ausgang ge- 
schickt. Dies erfolgt so, 
daß im Akkumulator das 
zu sendende Zeichen steht 
und dann die im RAM 
stehende Routine &BD2B 
aufgerufen wird. 

Wenn wir in die Speicher- 
stellen ab &BD2B aber 
einen Sprungbefehl auf 
eine eigene Routine imple- 
mentieren, dann wird, an- 
stelle der Zeichen-Aus- 
gabe an den Drucker, un- 
sere eigene Routine aus- 
geführt. Sie sehen, mit der 
phantastischen Einrich- 
tung, daß bei den CPCs 
viele Firmware-Routinen 
über die im RAM vorhan- 
denen ‚„Sprungtabellen“ 
laufen, können durch de- 
ren „Umlenkung‘“ viele 
Beeinflussungen des nor- 
malen Ablaufes program- 
miert werden. Die bei 
&BD2B stehende Routi- 
ne hat im Firmware- 
Handbuch die Bezeichnung 
MC PRINT CHAR und 
ruft eine Routine im ROM 
auf. Mit dem Programm 
ASSPATCH verändern wir 
die bei MC PRINT CHAR 
enthaltenen Werte. Außer- 
dem müssen wir auch 
noch festlegen, wohin der 
„Text“ geschrieben wird 
und wo unser Maschinen- 
programm liegen soll. 
Dabei wollten wir berück- 
sichtigen, daß unsere eige- 
ne Routine später evtl. 
noch ausgebaut werden 
soll. Dieser Ausbau könn- 
te beispielsweise so aus- 
sehen, daß beim CPC 
6128 auch die zweite 
Speicherbank für die 
Texte benutzt werden 
soll. Also darf unsere Rou- 
tine nicht im zentralen 
RAM-Bereich von &4000 
bis &7FFF liegen! Wir 
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haben uns dafür entschie- 
den, das Programm ab 
&3B00 abzulegen; dann 
kann die Routine später 
noch um einiges ausge- 
baut werden, ohne mit 
dem Beginn des Textbe- 
reiches, den wir auf 
&4000 legen wollen, zu 
kollidieren. 


DAS PROGRAMM 


ASSPATCH 


Als „patchen“ versteht 
man die Methode, bei be- 
reits bestehenden Pro- 
grammen ein paar Bytes 
zu verändern, um auch 
den Programmablauf zu 
modifizieren. Da der 
Assembliervorgang des 
MAXAM verändert wer- 
den soll, kam das Pro- 
gramm zu diesem Namen. 
Wir wollen nun unsere 
kleine Maschinenroutine 
ab &3BO0 ablegen, also 
wird in Zeile 110 der 
durch Basic verfügbare 
RAM-Speicher auf &3AFF 
begrenzt. In Zeile 120 
wird der MAXAM mit sei- 
ner Assembler-Funktion 
aufgerufen. ORG in Zeile 
130 dürfte klar sein. In 


1990 
118 
129 
138 
ı1a9 
150 
169 

178 

189 

198 

200 ’merker 
218 
220 
238 


REM 
MEMORY E3AFF 
|ASSFMRALE 
"ORG 83BAM 
"patch 


REM WANDLER 


FOR i = 


Zeile 140 steht als Label 
patch, dann die beiden 
Befehle, um HL und BC 
auf den Stapel abzulegen. 
Anschließend wird der 
Wert, der in der Adresse 
„merker‘ steht, in das 
HL-Register geladen. Dort 
steht nach dem Programm- 
lauf von ASSPATCH die 
Adresse &4000. Dieser 
Wert wird durch die Zeile 
230 gePOKEt. Wird nach 
Beendigung des Programm- 
laufs irgendwann einmal 
die Routine MC PRINT 
CHAR aufgerufen, wird 
ja auf unser Progrämm- 
chen verzweigt. Deshalb 
wird beim ersten Zeichen, 
das an den Drucker ge- 
schickt werden soll, in 
Zeile 150 der Wert &4000 
in das HL-Register geladen. 
Da beim Einsprung in die 
Adresse &BD2B im Akku 
das zu sendende Zeichen 
steht, wird dieses durch 
Zeile 160 in die Speicher- 
stelle &4000 geschrieben. 
Danach wird das HL-Regi- 
ster erhöht (Zeile 170) 
und durch Zeile 180 in 
der dafür vorgesehenen 
Speicherstelle für spätere 
Zeichen ‚gemerkt‘ (daher 


ASSPATCH von Lothar Miedel 


PUSH HI.:PUSH BC 
LD HL. ,(merker) 
L.D CHL),A 

INC HL 

l.D (merker) ,HL 
POP BC:POP HI :SCF:RFT 
defs 2 

"limit &EFHFRF:ORG EBD?PRB:JP 


PATCH 


POKE. E3BAE,M:POKF &3BYF,649M 


MODF 2:PRINT"WANDLFR":PRINI 
PRINT"Bitte das Ende des "; 
PRINT"ASUTJ-Textes 
PRINT"Speicher eingehen!" 

PRINT :OPFNOUT"asstile” 
INPUT"Ende" ;e$:ende=VAL("&”"+e$) 
PRINT:PRINT"Bitte etwas Geduld! 
EA4RBA TOD ende 

PRINT #9,CHR$EPEFKLI)); :NFXI 
PRINT #8,CHR$( 13) :CL.OSEOUT 
PRINT"Fertig!”;CHR$(7) 


im ; 
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auch der Labelname!). 
Der Inhalt der Merkspei- 
cherstelle erhöht sich also 
durch jedes gesendete 
Zeichen! 

In Zeile 190 holen wir die 
beiden — anfangs auf den 
Steck gelegten — Werte für 
HL und BC wieder. Die 
Aussprung-Bedingung der 
Routine &BD2B in Bezug 
auf das CARRY-Flag ist 
so festgelegt, daß, wenn 
das Zeichen richtig gesen- 
det wurde, CARRY “an“ 
ist. Also setzen wir dieses 
Flag durch SCF und kehren 
zur aufrufenden Routine 
zurück. Die Zeile 210 hat 
mit unserem eigentlichen 
Maschinenprogramm nichts 
zu tun, sondern hebt 
durch limit &FFFF die 
Begrenzung der Assemblie- 
rung auf, um direkt in die 
Speicherstelle bei MC 
PRINT CHAR den Befehl 
JP PATCH, also den 
Sprung zu unserer Routine, 
einzuschreiben. 

Wenn Sie nun den Befehl 
LIST #8 eingeben, werden 
Sie bemerken, daß ein 
angeschlossener Drucker 
nicht mehr reagiert! Aber 
trotzdem haben Sie etwas 
ausgelöst: Ein im Spei- 
cher stehendes Programm 
wurde in den Bereich ab 
&4000 geschrieben. Da das 
Programm ASSPATCH 
(und die anderen zu die- 
sem Teil des Artikels gehö- 
renden) in dieser Form 
nur von MAXAM-Besit- 
zern genutzt werden kann, 
haben wir auf den Ab- 
druck eines Laderprogram- 
mes verzichtet. Wir ken- 
nen ja auch nicht alle 
Assembler und deren 
Druckausgabe-Routinen; 
Besitzer anderer Assem- 
bler-Pakete müssen sich 
selber weiterhelfen. 

Wenn Sie als Maxam-Besit- 
zer nach dem Programm- 
lauf von ASSPATCH ein 
LIST #8 eingeben, kön- 
nen Sie unmittelbar da- 
nach den Maxam aufrufen 
und sich z.B. mittels der 
EDIT-Funktion davon 
überzeugen, daß nun das 
Programm als ASCII- 

File im Bereich ab &4000 
steht. Lassen Sie mehr- 
mals „drucken“, dann 
steht das Programm auch 
mehrfach im Speicher! 
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Aber Achtung!, irgend- 
wann ist es so oft vorhan- 
den, daß wichtige -andere 
RAM-Speicherstellen über- 
schrieben werden, ein 
System-Absturz ist die 
Folge. 

Das kleine Maschinenpro- 
gramm ist aber ja noch 
abzuändern. Es kann bei- 
spielsweise abgefragt wer- 
den, ob eine bestimmte 
Adresse erreicht wurde 
und dann zu einer Fehler- 
und Abbruch-Routine 
verzweigt werden. CPC- 
Besitzer können abfragen, 
ob Speicherstelle &7FFF 
erreicht wurde, um dann 
auf eine andere Speicher- 
bank umzuschalten, usw., 
usw. Aus diesem Grund 
haben wir noch genügend 
Platz zwischen Programm- 
ende und Textanfang ge- 
lassen. 


WAS NUN? 


So, nun haben wir ein 
Programm als ASCII-File 
im Speicher. Damit kön- 
nen wir bloß nicht viel ' 
anfangen. Es war aber ja 
auch nicht Sinn des Pro- 
gramms, ein Listing ir- 
gendwo ‚‚reinzuschrei- 
ben“, sondern wir wollen 
ein Assemblerlisting als 
Textfile auf die Diskette 
bekommen. Um dies zu 
erreichen, könnten wir bei- 
spielsweise unser Pro- 
gramm so abändern, daß 
nicht in den Speicher, son- 
dern direkt auf Diskette 
geschrieben wird. — Könn- 
ten wir, ja, wollen wir 
aber nicht; wir machen es 
auf andere Weise. 

Bevor wir aber darauf ein- 
gehen: Denken Sie bitte 
ein paar Sekunden darüber 
nach, was wir Ihnen ei- 
gentlich wirklich gezeigt 
haben! Ist Ihnen klar, daß 
mit dieser Technik eine 
Datei aller Ihrer Disketten 
angelegt werden kann, und 
dies lediglich durch die 
Eingabe des Befehls CAT, 
der ja auch in einem Pro- 
gramm stehen kann?Spä- 
ter könnten Sie die Daten 
z.B. als Binärfile speichern, 
um sie dann mit einem 
weiteren Programm zu be- 
arbeiten, usw. Hierzu 
müßten Sie allerdings den 
Vektor &BC9B (CAS 


CATALOG) patchen und 
nach der Aufnahme aller 
Disketten wieder zurück- 
stellen. Dies soll aber nur 
ein kleiner Hinweis sein, 
was alles mit oft sehr klei- 
nen Programmen getan 
werden kann. 

Wieder zurück zum Aus- 
gangsthema: Beim Assem- 
blerlauf soll die Drucker- 
ausgabe nicht auf Papier 
geschehen, sondern letzt- 
endlich soll ein ASCII- 
File erstellt werden, das 
nachträglich noch bearbei- 
tet werden kann. Beispiels- 
weise können führende 
Zeilenadressen durch 
MODIFY/REMOVE 
LINE-NUMBERS entfernt 
werden, um beim späte- 
ren Ausdruck mit geringe- 
rer Druckbreite auszukom- 
men. Und so weiter... 
Das soll so aussehen, daß 
mittels des MAXAM- 
Editors das File bearbei- 
tet werden kann. 


VORGEHENSWEISE: 


Zuerst das Programm 
ASSPTACH laufen lassen. 
Dann den MAXAM aufru- 
fen und den Quellcode in 
den Editor einlesen. Als 
ersten Befehl in den Quell- 
code LIST P einschreiben 
und dann assemblieren 
lassen. Danach mittels 
Edit-Memory die letzte 
Speicherstelle des ASCII- 
Textes im Speicher mer- 
ken (notieren!). 
Anschließend das Basic- 
Programm WANDLER auf- 
rufen und die notierte 
Endadresse ohne das ‚‚&‘- 
Zeichen eingeben, warten... 
Nach dem Programmlauf 
kann wieder der Editor auf- 
gerufen und das File mit 
dem Namen „ASSFILE“ 
eingelesen werden. 
Alles klar? 
Mit dem Programm 
WANDLER können Sie na- 
türlich auch Texttabellen, 
die in einem ROM stehen 
und die Sie ins RAM um- 
kopiert haben, als ASCII- 
File schreiben lassen. Dies 
kann u.a. dazu dienen, ei- 
nen Ausdruck der ROM- 
Texte zu haben, die für 
ein neues Betriebssystem- 
ROM geändert werden 
sollen. 

LM 


TIPS & TRICKS ZT 


= 


Tips zur String- 
behandlung 


Zwei kleine Tips möchte 
ich noch loswerden: Mir 
ist häufig aufgefallen, 
daß BASIC-Programmie- 
rer die relativ komplizier- 
te Form 
b$=RIGHT$(A$,LEN 
(A$ )-1) 

benutzen, um von einem 
String das erste Zeichen 
zu lösen. Dabei bietet 

das Schneider-BASIC 
auch hier eine viel ein- 
fachere Möglichkeit: 
b$=MID$(a$,2) 

Dies bedeutet, daß b$ 

der String a$ ab dem 
zweiten Zeichen zugewie- 
sen werden soll. Natür- 
lich kann statt der 2 

auch jede andere Zahl 
eingesetzt werden, die 
immer das erste Zeichen 
kennzeichnet, das über- 
nommen werden soll. 

Der zweite Hinweis be- 
trifft eigentlich nur Be- 
sitzer von Seikosha- 
Druckern. Oft wird ge- 
fragt, warum die üblichen 
Hardcopy-Routinen auf 
dem Seikosha nicht funk- 
tionieren. Ich selber habe 
einen SP-1000 CPC und 
stand vor dem gleichen 
Problem. Laut Handbuch 
war alles richtig, also 
mußte der Fehler bereits 
im Text zu finden sein. 
Bei jedem Ausdruck einer 
Hardcopy fiel auf, daß 
nur exakt die Hälfte der 
als Grafikdaten vorgesehe- 
nen Daten den Drucker als 
solche erreichten. Der 
Rest stellte wieder ASCII- 
Zeichen und ESCAPE- 
Codes dar. Das ließ den 
Schluß zu, daß die Anzahl 
der Grafikdaten nicht et- 
wa in der Form n1+256 
*n2, wie esim Handbuch 
steht, angegeben werden 
müssen, sondern in der 
Form nl+128*n2. Mehre- 
re Versuche bestätigten 
diese Annahme. Der Hin- 
tergrund dieser Übertra- 
gung dürfte klar sein: 
Seikosha versuchte so, das 
Problem des fehlenden 
achten Bits bei der Druk- 
ker-Schnittstelle zu umge- 
hen. Jetzt können ohne 
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Probleme auch Werte wie 
640 Punkte (...chr$(0) 
+chr$(5)) an den Drucker 
gesandt werden. Dies 
klingt, als wäre es ein 
Vorteil, für den man 
Seikosha loben müßte. 
Ich aber meine, daß der 
Nachteil viel größer ist. 
Es gibt nämlich keine 
Hardcopies, die diese 
Form unterstützen. Ei- 
ne Hardcopy in Form 
eines Listings läßt sich 
natürlich leicht anpas- 
sen, aber bei kommer- 
ziellen Programmen ist 
dies nur schwer oder 
gar nicht möglich. Auch 
die Anpassungen, die 
mir bekannt sind, lassen 
diese Form der Übergabe 
nicht zu. Dazu kommt, 
daß im Handbuch die 
übliche Form aufgeführt 
ist. Dennoch hoffe ich, 
daß dieser Tip für die 
Seikosha-Besitzer eine 
Hilfe ist. 

Frank Lauxtermann, 
Osnabrück 


Wir sind sicher, daß Sie 
mit dem Hinweis eini- 
gen Lesern geholfen 
haben und bedanken 
uns in deren Namen. 


DRINGENDST 
GESUCHT: MAURICE 
LION 


Keine Angst, der nette 
Herr hat nichts verbro- 
chen. Ganz im Gegenteil, 
wir suchen den Autor des 
„Soundmasters‘“ (Heft 
9/87) wegen seiner feh- 
lenden Adresse, denn wir 
wollen ja abrechnen. 

Und da wir alle neugierig 
sind, hier die Erklärung. 
Als wir sein Programm 
prüften und es uns gefiel, 
bekam er seinen Daten- 
träger (samt Antwort) in 
einem Rückumschlag, den 
er uns freundlicherweise 
beigelegt hatte, zugesandt. 
Daß wir damit auch den 
einzigen Hinweis auf seine 
Adresse aus der Hand ga- 
ben, ist uns entgangen. 


LISTING 


Springer für 
den PG 1512 


Das Interesse an Basic2-Listings für den PC steigt, und 
auf Ihren Wunsch hin werden Sie nun regelmäßig gute 
Programme in Schneider aktiv finden. Die Auswahl 
ist allerdings schwierig. Ein Anwenderprogramm, so- 
fern es sich am üblichen Bedarf orientiert (etwa eine 
Textverarbeitung), ist wohl kaum das Richtige. 
Schließlich gibt es preiswerte Software zu kaufen, de- 
ren Leistung ein Basic-Programm übertreffen wird. 
Ebenso verhält es sich mit den blitzschnellen Reak- 
tionsspielen, die besser in Maschinensprache program- 
miert werden sollten. Aber es gibt janoch das weite 
Feld der Denkspiele. So kurz diese Listings oftmals 
sind, der Unterhaltungswert des Programmes kann 
sehr groß sein. 

So wie bei „Springer“ von Michael Köthe. Aufmerksa- 
me Leser kennen das ‚„Mini-Schach“ bereits aus Heft 
6/87, damals für den CPC. Dies war mit ein Grund, 
warum wir uns für dieses Listing (als erstes) entschlos- 
sen haben. Umsteiger, wie der Autor selbst, können 
so am einfachsten sehen, wo Unterschiede und Ge- 
meinsamkeiten der beiden Basic-Dialekte liegen. 


DIE SPIELREGELN 


Versuchen Sie möglichst alle Felder des Spielbrettes 
einzufärben, indem Sie mit der Figur darauf springen. 
Für die Züge gelten die Schachregeln, ein einmal umge- 
färbtes Feld darf kein zweites Mal angesteuert werden. 
Gesteuert wird mit den Zahlentasten 4, 6, 2 und 8. 
Hierzu muß die NumLock-Taste gedrückt sein. Ach- 
ten Sie darauf, dafß Sie in den ungünstigen Eckposi- 
tionen einen Ausweg offen haben. 


HINWEISE ZUM LISTING 


Es ist gar nicht so leicht, Label-Basic in einer vernünf- 
tigen Form auszudrucken. Die Darstellung mit 80 Zei- 
chen erweist sich als ungünstig, bei den üblichen 35 
Zeichen werden die eingerückten Routinen unver- 
ständlich. Wir sind mit 65 Zeichen einen Kompromiß 
eingegangen, bei dem zwar einige Zeilen umgebro- 
chen werden, die Einrückungen aber noch erkennt- 
lich sind. 
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CLEAR 
GOSUB 
GOSUB 
GOSUB 


RESET 
vorbereitung 
spielerklarung 
init 


IF demo THEN GOSUB demonstration 


REPEAT 


GOSUB spielfeldaufbau 
GOSUB werte 

WINDOW #1 CURSOR ON 
GOSUB spiel 

WINDOW #1 CURSOR OFF 
GOSUB auswertung 


UNTIL 


CLEAR 
END 


LABEL 


ende 


RESET 


auswertung 


IF fest THEN PRINT CHR$(?) ;:PRINT AT(53;15) MODE(2) "Leider nic 
ht geschafft !!" 


IF gelöst THEN FOR i=1 TO 5:PRINT CHR$(?) ;:NEXT:PRINT AT(58; 15) 


MODE( 


2) "Gratuliere !!!!" 


PRINT AT(57;18) MODE(2) "Ausdrucken (J/N)" 
REPEAT 

h$=UPPER$( INKEY$) 
UNTIL h$="J" OR h$="N" 


BOX 


5500;9090,2000,408 FILL WITH 8 COLOR(farbe(!1)) 


IF h$="J3" THEN GOSUB druck 
PRINT AT(57;18) MODE(2) "Noch einmal (J/N)" 
REPEAT 
h$=UPPER$( INKEY$) 
UNTIL h$="J3" OR h$="N" 
IF h$="N" THEN ende=TAUE 


RETURN 


LABEL 


spiel 


REPEAT 


MOVE 


(waag-1) *590+400;( senk-1)*594+4090 


REPEAT 


h$=INKEY$ 


UNTIL h$<>"" 


IF 


h$="4" THEN GOSUB cursor_links 
h$="6" THEN GOSUB cursor_rechts 
h$="8" THEN GOSUB cursor_auf 

h$="2" THEN GOSUB cursor_ab 
h$=CHRA$C 13) THEN GOSUB zug _ausführen 


UNTIL gelost OR fest 


RETURN 


LABEL druck 


PRINT #08,CHR$( 27) "1"CHR$(3);: "linker Rand 
PRINT #8,CHR$( 27) "M": ’Elite 
PRINT #0,CHR$( 27) "wi": "Breitschrift ein 


FOR i=1 TO 6:PRINT #8:NEXT 
PRINT #2,"Springertour" 
FOR i=1 TO 4:PRINT #8:NEXT 
GOSUB linie! 
FOR i=8 TO 1 STEP -1 
GOSUB linie2 


PRINT #8,CHR$( 186); 


FOR x=1 TO 8 


PRINT #8," "USING"##";speicher(x,i);:PRINT #8," "CHR$( 186); 


NEXT x 
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PRINT #08," ";i 
GOSUB linie2 
IF i>1 THEN GOSUB linie3 ELSE GOSUB linie4 
NEXT i 
PRINT #8:PRINT #8:PRINT #8," A B © D E F G 
H" 
PRINT #0,CHR$( 12) 
RETURN 


LABEL linie * 
PRINT #8,CHR$( 201); 
FOR t=1 TO 7? 
PRINT #8,5TRING$(4,285) ;CHR$( 203); 
NEXT t 
PRINT #8,5TRING$( 4,205) ;CHR$( 187) 
RETURN 


LABEL linie2 
FOR t=1 TO 8 
PRINT #8,CHR$( 186) " "; 
NEXT t 
PRINT #08,CHR$( 186) 
RETURN 


LABEL linie3 
PRINT #®,CHR$( 204), 
FOR t=1 TO ? 
PAINT #8,5STAING$( 4,205) ;CHA$( 206) ; 
NEXT t 
PRINT #0,5STRING$( 4,285) ;CHA$( 185) 
RETURN 


LABEL linie4 
PRINT #0,CHR$( 200) ; 
FOR t=1 T0 7? 
PRINT #0,5TRAING$( 4,205) ;CHR$( 202) ; 
NEXT t 
PAINT #8,5STRING$( 4,205) ;CHR$( 188) 
RETURN 


LABEL zug_ausführen 

IF zug>® THEN GOSUB überprüufung_|! 

IF illegal THEN PRINT CHR$( 7); :RETURN 

IF zug>® THEN GOSUB überprüfung_? 

IF illegal THEN PRINT CHR$( 7); :RETURN 

IF zug>® THEN GOSUB vonfeld 

WINDOW #1 CURSOR OFF 

PRINT AT(78;18) MODE(2) POINTS( 16) COLOR(ferbe( 1)) USING"##1";z 
ug, 

zug=zugt+t] 

PRINT AT(78;18) MODE(2) POINTS( 16) USING"##"; zug; 

waagalt=waag:senkalt=senk 

GOSUB vonfeld 

feld(waag+t!i,senk+1)=2 

x=(waag-1)*5990+209:y=( senk-1) *594+196 

GOSUB pferd 

speicher(waag,senk)=zug 

MOVE (weag-1) *5990+400;( senk-1) #594+400 

WINDOW #1 CURSOR ON 

IF zug=64 THEN gelöst=TRUE 

IF zug<64 THEN GOSUB weitere_zuge_möglich 
RETURN 


LABEL weitere_züge_möglich 
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IF demo THEN RETURN 
fest=TRUE 
RESTORE daten 
FOR i=1 T0 8 
READ a,b 
IF feld(waagta,senk+b)=1 THEN fest=FALSE 
NEXT i 
RETURN 


LABEL überprüfung_1 

IF demo THEN RETURN 

illegal=FALSE 

IF feld(waeag+1,senk+1)<>1 THEN illegal=TRUE 
RETURN 


LABEL uberprüfung_2 
IF demo THEN RETURN 
illegal=-TRUE 
RESTORE daten2 
FOR i=1 TO 8 
READ a,b 
IF waag=-(waagalt+a) AND senk=(senkalt+b) THEN illegal=FALSE 
NEXT i 
RETURN 


LABEL vonfeld 
IF waagalt MOD 2 = DB AND senkalt MOD 2 = 1 OR waagalt MOD 2=1 A 
ND senkalt MOD 2 = ® THEN farbe=farbe(3) ELSE farbe=farbe(4) 
BOX (waagalt-1)*598+188;(senkalt-1)*596+100,586,588 FILL WITH 8 
COLOR( farbe) 
RETURN 


LABEL cursor_auf 
senk=senkt1 
IF senk>8 THEN senk=!] 
RETURN 


LABEL cursor_ab 
senk=senk-1 
IF senk<1 THEN senk=8 
RETURN 


LABEL cursor_rechts 
waag=waagt] 
IF waag>8 THEN waag=1 
RETURN 


LABEL cursor_links 
waag=waag-1 
IF waag<1 THEN waag=8 
RETURN 


LABEL werte 
waag=4:senk=4 
zug=-d:fest=FALSE 
gelost=FALSE 
FOR i=1 TO 8 

FOR x=1 TO 8 
speicher(i,x)=® 
NEXT x,i 
FOR i=2 TO 9 
FOR x=2 TO 9 
feld(i,x)=1 
NEXT x 
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NEXT i 
RETURN 


LABEL spielfeldaufbau 
BOX 08,08,82080,58088 FILL WITH 8 COLOR(farbe(1)) 
FOR i=2d TO 7 
FOR x=8 TO 7? 
BOX i*590+100;,x*596+1900,586,580 
NEXT x 
NEXT i 
PRINT AT(68;3) MODE(2) POINTS( 16) COLOR( farbe(6)) "STEUERUNG: " 
PPINT AT(61;5) MODE(2) "A"CHRA$L27)CHRA$(L27)" 6"CHRA$(27)CHAS$( 26) 
"  B8"CHR$C27)CHR$(24)" 2"CHRA$C27)CHA$(25) 
PRINT AT(63;7?) MODE(2) "+ ENTER" 
PRINT AT(68;1®8) MODE(2) POINTS( 16) COLORA( farbe(6)) "Zug: " 
RETURN 


LABEL pferd 

SHAPE x;y,x+400D;y,x+400;, y+60,x+300; y+6D,x+40D; y+290D,x+400;y+3BD 
‚x+300; y+400,x+140; y+40D,x;y+280,x+BQ; y+280,x+20;, y+209,x+150;y+22 
0,x+8B0;y+t60,x;y+68,x;y FILL W 
ITH 8 COLORA( farbe(2)) 

CIACLE x+140;y+308,28 FILL WITH 8 COLOAR( farbe(6)) 
RETURN 


LABEL vorbereitung 
CLOSE WINDOW 3 
CLOSE WINDOW 4 
SCREEN #1 GRAPHICS 648 FIXED,288 FIXED 
SCREEN #2 TEXT 79 FIXED,22 FIXED 
WINDOW #1 FULL 
WINDOW #2 FULL 
WINDOW #1 TITLE "SPRINGERTOUR u 
WINDOW #2 TITLE "Spielerklärung = 
RETURN 


LABEL init 
DATA 8,1,3,14,10,2 
LABEL daten 
DATA. =1,2, 0072.98. 278.0,.2,71,9, #421, 
LABEL daten2 
DATA =1,2,50.1. 19,2 ee 
DIM farbe(6) ,feld( 11,11),speicher(8,8) 
FOR i=1 TO 6 
READ farbe(i) 
NEXT i 
RETURN 


LABEL spielerklärung 

PRINT #2 AT(28;3)"S PRINGER TOUR" 

PRINT #2 AT(9;6) "Mit einem Springer soll ein Schachbrett durch 
wandert werden," 

PRINT #2 AT(9;8) "wobei keines der Felder zweimal betreten werd 
en darf. Gesteu-" 

PRINT #2 AT(9;18)"ert wird mit den Tasten 8, 2, 4, 6 und mit EN 
TER wird der Zug" 

PRINT #2 AT(9;12)"gesetzt. Vor Spielbeginn kann. eine Demonstrat 
ion gewählt wer-" 
PRINT #2 AT(9;14)"den. Ein Ausdruck ist nach jedem Spiel möglic 
h.." 

PRINT #2 AT(38;28) "Demonstration (J/N)"“ 

REPEAT 
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h$=UPPER$( INKEY$) 
Me: UNTIL h$="J" OR h$="N" 
IF h$="J3" THEN demo=TRUE 


WINDOW #2 CLOSE 
RETURN 


LABEL demonstration 
GOSUB spielfeldaufbau 
GOSUB werte 
RESTORE daten3 
FOR i=1 TO 64 
READ waag,senk 
GOSUB zug_ausführen 
WINDOW CURSOR OFF 
FOR za=1 TO 5B8809:NEXT za 
NEXT i 
demo=FALSE 
FOR za=1 TO 300998:NEXT za 
RETURN 


LABEL daten3 
DATA 9,7,0678,4,7,2,0,1,6,2.90,172,3, 1 ,952,97,1,8,3,7,8,858,6;6,4, 
9,8,0,3,0,3:,9,4,98,2,2,17,4,2,6,12,8,3, 7593,8,7,.2,8,5,:7,3,38,1:8,2,4,3 
‚3,3 
DATA 2,1,4,2,6,3,4,4,3,6,5,5,3,4,4,6,6,5,5,3,6,1,8,2,7,4,8,6,7 
8,.95,75,3,8,1,7,2,9,1,3,35,2,5,1,7,2,58,4,7,6,8, 


oO» 
FR 
Se 
Be 
Er 
re: 
Fan 
BR: 
ne 
FR 
Es 


CLEAR RESET 

GOSUB vorbereitung 

GOSUB spielerklärung 

GOSUB init 

IF demo THEN GOSUB demonstration 


REPEAT 
GOSUB spielfeldaufbau 
GOSUB werte 
WINDOW #1 CURSOR ON 
GOSUB spiel 
WINDOW #1 CURSOR OFF 
GOSUB auswertung 
UNTIL ende 


CLEAR RESET 
END 


LABEL auswertung 


IF fest THEN PRINT CHR$(7) ;:PRINT AT(53;15) MODE(2) "Leider nic 
ht geschafft !!" 


IF gelöst THEN FOR i=1 TO 5:PRINT CHR$(7) ; :NEXT:PRINT AT(58; 15) 
MODE( 2) "Gratuliere !!!ı" 
PRINT AT(57;18) MODE(2) "Ausdrucken (J/N)" 
REPEAT 
h$=UPPER$( INKEY$) 
UNTIL h$="3" OR h$="N" 
BOX 5588;988,2888,ABB8 FILL WITH 8 CUOLOR(farbel( I)) 
IF h$="J" THEN GOSUB druck 
PRINT AT(57;18) MODE(2) "Noch einmal (J/N)" 
REPEAT 
h$=UPPER$( INKEY$) 
UNTIL h$="J3" OR h$="N" 
IF h$="N"” THEN ende=TRUE 
RE TURN 
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LABEL spiel 
REPEAT 
MOVE (waag-1) *598+488;( senk-1) *594+4808 
REPEAT 
h$=INKEY$ 
UNTIL h$<>"" 
IF h$="4" THEN GOSUB cursor_links 
IF h$="6" THEN GOSUB cursor_rechts 
IF h$="8" THEN GOSUB cursor_auf 
IF h$="2" THEN GOSUB cursor_ab 


IF h$=CHR$( 13) THEN GOSUB zug _ ausführen 
UNTIL gelöst OR fest 


RE.TURN 

LABEL druck 
PRINT #8,CHR$( 27) "I1"CHR$C3);: ‘linker Rand 
PRINT #8,CHR$L 27) "M": "Elite 


PRINT #8,CHR$L27) "WI": 
FOR i=1 TO 6:PRINT #8:NEXT 
PRINT #8," Springertour" 
FOR i=1 TO 4:PRINT AB:NEXT 
GOSUB liniel 
FOR i=8 TO 1 STEP -1 
GDOSUB linie2 
PRINT #8,CHRA$( 186) ; 
FOR x=1 TO 8 
PRINT #8," "USING"##";speicher(x,i); :PRINT #8,” "CHR$( 186) ; 
NE.XT x 
PRINT #8," ";i 
GOSUB linie? 


IF i>1 THEN GOSUB linie3 ELSE GOSUB linie4 
NEXT i 


PRINT #8:PRINT #8:PRINT #0,” A B C D E F G 
H* 


PRINT #8,CHR$( 12) 
RETURN 


‘Breitschrift ein 


LABEL linieil 
PRINT #8,CHR$( 201); 
FOR t=1 TO 7? 
PRINT #8,5TRING$( 4,285) ; CHR$( 203) ; 
NEXT t 


PRINT #8,5TRING$( 4,285) ; CHR$( 187) 
RETURN 


LABEL linie2 
FOR t=1 TO B 


PRINT #8,CHR$( 186) " ar 
NEXT t 
PRINT #8,CHR$( 186) 
RETURN 


LABEL linie3 


PRINT #8,CHR$( 204); 
FOR t=1 T0 7? 


PRINT #8,STRAING$( 4,285) ;CHR$( 286) ; 
NEXT t 


PRINT #0 ,STRING$(4,285) ; CHA$( 185) 
RETURN 
L.ABEL linie4 


PRINT #8,CHR$( 200) ; 
FOR t=1 TO 7 


PRINT #0,5STRING$( 4,285) ;CHRA$( 282) ; 
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NEXT t 


PRINT #8,5TRING$( 4,285) ;CHR$( 188) 
RETURN 


LABEL zug_ausführen 

IF zug>® THEN GOSUB überprüfung_1 

IF illegal THEN PRINT CHR$( 7); :RETURN 

IF zug>® THEN GOSUB überprüfung_2 

IF illegal THEN PRINT CHR$( 7?) ; :RETURN 

IF zug>8d THEN GOSUB vonfeld 

WINDOW #1 CURSOR OFF 

PRINT AT(78;18) MODE(2) POINTS( 16) COLORCfarbe( 1)) USING"A#1";z 
ug; 

zug=zugt+i1 

PRINT AT(78;18) MODE(2) POINTS( 16) USING"”##" ;zug; 

waagalt=waag:senkalt=senk 

GOSUB vonfeld 

feld(waag+1,senk+1)=2 

x=(waag-1) #598+288:y=( senk-1) #594+196 

GOSUB pferd 

speicher(waag,senk)=zug 

MOVE (waag-1)#598+488;( senk-1) #594+488 

WINDOW #1 CURSOR ON 

IF zug=64 THEN gelöst=TRUE 


IF zug<64 THEN GOSUB weitere _züge möglich 
RETURN 


LABEL weitere_züge_möglich 


IF demo THEN RETURN 
fest=TRUE 
RESTORE daten 
FOR i=1 TO B 
READ a,b 
IF feld(waagta,senk+b)=1 THEN f=est=FALSE 
NEXT i 
RETURN 


LABEL überprüfung_1 
IF demo THEN RETURN 
illegal=FALSE 


IF feld(wasag+ti,senk+1)<>1 THEN illegal=TRUE 
RETURN 


LABEL überprüfung_?2 
IF demo THEN RETURN 
illegal=TRUE 
RESTORE daten2 
FOR i=1 TO 8 
READ a,b 
IF waag=(waagalt+a) AND senk=( senkalt+b) THEN illegal=FALSE 
NEXT i 
RETURN 


LABEL vonfeld 


IF waagalt MOD 2 = B AND senkalt MOD 2 = 1 OR waagalt MOD 2=1 A 
ND senkalt MOD 2 = 8 THEN farbe=farbe( 3) ELSE farbe=farbef( 4) 


BOX (waagalt-1) *598+188;( senkalt-1) #596+198,586,58® FILL WITH 8 
COLOR( farbe) 


RETURN 


LABEL cursor_auf 
senk=senk+t1 
IF senk>8 THEN senk=1 
RETURN 
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LABEL cursor_aäab 
senk=senk-1 
IF senk<1 THEN senk=8 
RETURN 


LABEL cursor_rechts 
waag=waagt! 
IF waag>8 THEN waag=1 
RETURN 


LABEL cursor_links 
waag=waag-1 
IF waag<1 THEN waag=B 
RETURN 


LABEL werte 
waag=4:senk=4 
zug=-®:fest=FALSE 
gelöst=FALSE 
FOR i=1 TO 8 
FOR x=1 TO 8 
speicher(i,x)=® 

NEXT x,i 

FOR i=2 10 9 
FOR x=2 TO 9 

feld(i,x)=1 

NEXT x 

NEXT i 

RETURN 


LABEL spielfeldaufbau 
BOX 8;8,8208,5888 FILL WITH 8 COLOR( farbe( 1)) 
FOR i=8 TO 7 
FOR x=8 TO 7 
BOX i*598+188;x*596+100,586,588 
NEXT x 
NEXT i 


PRINT AT(68;3) MODE(2) POINTS( 16) COLOR( farbe( 6)) "STEUERUNG: " 
PRINT AT(61;5) MODE(2) "A4"CHR$C27)CHRA$C27)”"  6"CHA$L 27) CHR$L 26) 
B8"CHR$L27)CHA$L 24)” 2 2"CHR$L27) CHR$C 25) 

PRINT AT(63;7) MODE(2) "+ ENTER" 


PRINT AT(68;18) MODE(2) POINTS( 16) COLOR(farbe(6)) "Zug: 
RETURN 


LABEL pferd 


SHAPE x,y,x+4BQ;y,x+400; y+68,x+3B0; y+6B,x+40B8; y+2008,x+400; y+30B 


‚x+300; y+4QQ,x+140; y+ABQ,x;y+288,x+80; y+280,x+28; y+200,x+150;y+22 
B,x+B0;y+60,x;y+68,x;y FILL W 
ITH 8 COLOR( farbe(2)) 


CIACLE x+148;y+388,28 FILL WITH 8 COLOR( farbe(6)) 
RETURN 


LABEL vorbereitung 
CLOSE WINDOW 3 
CLOSE WINDOW 4A 
SCREEN #1 GRAPHICS 648 FIXED,288 FIXED 


SCREEN #2 TEXT 79 FIXED,22 FIXED 
WINDOW #1 FULL 


WINDOW #2 FULL 
WINDOW #1 TITLE "SPRINGERTOUR 7. 


WINDOW #2 TITLE "Spielerklärung 2 
RE.TURN 
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TE ————EETETTETETTEREEEEREREEEREEEEEEEEESEEEEEEEEEEEEEEEEEEEEEEEEEEREEEEEEEEEEEEEE 


SUBSKRIPTION 


JETZT BESTELLEN! 
DAS 
GROSSE 
SCHNEIDER 
CPC 
TEST- 
JAHRBUCH 
HARD 
& SOFTWARE, 
PERIPHERIE 

UND _ 
ZUBEHÖR 
IM TEST 


DER GROSSE SAMMELBAND 
RUND 150 SEITEN 
NUR 17DM STATT 19,80. 
SIE SPAREN CA 3DM! 


PROGRAMMSERVICE 


Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingun- 
gen die Listings dieses Heftes auf 


_] Kassette (30 DM) Diskette (30 DM) 


Ich zahle: (Zutreffendes bite ankreuzen!) 
per beigefügten Scheck [] Schein | 


Gegen Bankabbuchung am Versandtag | 
Meine Bank (mit Ortsname) 
Meine Kontonummer 


MeineBankletzahllEOO (steht auf jedem Bankauszug) 
Vorname MACHRANIG. Son a 2 oe en en ine 
Str./Nr. PLZ/Ort __.11/87 


Verkaufsbedingungen: Lieferung nur gegen Vorkasse oder Bankabbuchung. Keine Nachnahme. 
Umtausch bei Nichtfunktionieren. 


. Unterschrift 
Bitte ausschneiden und einsenden an 


SCHNEIDER AKTIV 
KASSETTENSERVICE 11/87 
POSTFACH 1161 

D-8044 UNTERSCHLEISSHEIM 


zz 


VORBESTELLUNG 


Hiermit bestelle ich zum Subskriptionspreis 


( ) Das Große CPC-Testjahrbuch, DM 17, - incl. Zustell- und Versandkosten 
(statt DMi 19,80) 


( ) Den Software-Sammelband mit den besten CPC-Programmen zu DM 12,- - 
incl. Versandspesen (statt DM 14,80) 


Ich zahle per beiliegendem Verrechnungsscheck ( ) 


per Bankabbuchung von meinem Konto 

bei-{Bank UN. Orts 5 Fr 
Kto-Nümkiielı zensiert 
Bankleitzahl... 24.424 (steht auf jedem Kontoauszug) 


Name»... re en ee 
Vorname: a  ETITEETEEG 
SIEI/ HAN en rer ee we a an 
PILZE ae ee RR ee 


Schneider Aktiv 

Versand-Service ACHTUNG: Dieses Angebot ist befristet bis zum 15. November 1987 
Postfach 1161 (Datum des Poststempels). Der Verlag garantiert, daß Scheckeinlösung bzw. 
D-8044 Lohhof Bankabbuchung erst am Versandtag der Bestellung vorgenommen werden. 
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NUTZEN SIE UNSEREN BEQUEMEN POSTSERVICE 


ZU IHNEN 
INS HAUS 


Das unabhängige Magazin 
für Schneider-Computer 


Finden $ie Ihre SCHNEIDER AKTIV nicht am Kiosk? 
Weil sie schon ausverkauft ist? Oder ‚‚Ihr‘“ Kiosk 
nicht beliefert wurde? Kein Problem! Für ganze 60 
DM liefern wir Ihnen per Post zwölf Hefte ins Haus 
(Ausland 80 DM). Einfach den Bestellschein aus- 
schneiden — fotokopieren oder abschreiben, in ei- 
nen Briefumschlag und ab per Post (Achtung: Porto 
nicht vergessen). SCHNEIDER AKTIV kommt dann 
pünktlich ins Haus. 


Fr A EFT Fe Ha JE >Z 
ABO-SERVICE-KARTE 


GARANTIE! 

Sie können diesen Abo-Auftrag bin- 
nen einer Woche nach Eingang der 
Abo-Bestätigung durch den Verlag 
widerrufen — Postkarte genügt. An- 
sonsten läuft dieser Auftrag jeweils 
für zwölf Ausgaben, wenn ihm nicht 
vier Wochen vor Ablauf widerspro- 
chen wird, weiter. 


Ich nehme zur Kenntnis, Ja, ich möchte von Ihrem Angebot Ausgaben an untenstehende An- 
daß die Belieferung Gebrauch machen. schrift. Wenn ich nicht vier Wochen 
erst beginnt, wenn die Bitte senden Sie mir bis auf Widerruf vor Ablauf kündige, läuft diese 
Abo-Gebühr dem Verlag ab sofort jeweils die nächsten zwölf Abmachung automatisch weiter. 
zugegangen ist! Narie 

Vorname _ e 

Straße /Hausnr. et 

PLZ/Ort EN era 

Ich bezahle: 


per beiliegendem Verrechnungsscheck 
... gegen Rechnung 
... bargeldios per Bankeinzug von meinem Konto 
bei (Bank) und Irt 


Kontonummer 
Bankleitzahl 
SCHNEIDER AKTIV (steht auf jedem Kontoauszug) 
ABO-SERVICE 11/87 Unterschrift 
en 1161 Von meinem Widerspruchsrecht habe ich Kenntnis genommen. 
 UNTERSCHLEISSHEIM Unterschrift nn. 0000 2 187 
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ANZEIGENSERVICE 


Die große Börse für jeden Zweck in SCHNEIDER AKTIV. Kostenlos für Privat-Inserenten. Spottbillig für gewerbliche Anbieter. Ein- 
fach Coupon ausschneiden. fotokopieren o.ä., ausfüllen und ab die Post — Freimachen nicht vergessen! — Unsere Adresse steht 
auf dem Coupon, ebenso die Preise für gewerbliche Anbieter! Achtung! Wir weisen ausdrücklich darauf hin, daß wir offensicht- 
lich gewerbliche Anzeigen nicht kostenlos veröffentlichen und uns jedweden Abdruck kostenloser Anzeigen vorbehalten müssen, 
insbesondere, wenn deren Inhalt gegen geltendes Recht verstößt. Private Chiffreanzeigen werden nicht aufgenommen. Für Pri- 
vatanbieter: etwa bis zu acht Zeilen a 28 Anschläge. Für gewerbliche Anbieter: 5 DM p.mm. bei beliebiger Größe. 


SCHNEIDER AKTIV Name 
ANZEIGENABTLG Vorname 
POSTFACH 1161 Straße /Hausnr. 
D-8044 UNTERSCHLEISSHEIM pLz/on 


m > 


DAS SONDERANGEBOT: 
PRIVATE KLEINANZEIGEN 
SIND KOSTENLOS 


Das bietet Ihnen ab sofort SCHNEIDER AKTIV: KLEINAN- 
ZEIGEN SIND KOSTENLOS FÜR PRIVATANBIETER! Su- 
chen Sie etwas, haben Sie etwas zu verkaufen, zu tau- 
schen, wollen Sie einen Club gründen? Coupon ausfüllen, 
auf Postkarte kleben oder in Briefumschlag stecken und 
abschicken. So einfach geht das. Wollen Sie das Heft 
nicht zerschneiden, können $ie den Coupon auch fotoko- 
pieren. Oder einfach den Anzeigentext uns so schicken, 
auf Postkarte oder im Brief. Aber bitte mit Druckbuchsta- 
ben oder in Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und /oder Telefonnum- 
mer sollten acht Zeilen 4 28 Anschläge nicht überschrit- 
ten werden. 

ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater Inserenten 


kostenlos, gewerbliche Anzeigen kosten pro Zeile zu 
29 Buchstaben DM 5,00 plus Mehrwertsteuer! 

Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

DIE INSERTION IST NICHT VOM HEFTKAUF ABHÄNGIG! 
Chiffre-Anzeigen sind nicht gestattet! Wir behalten uns 
vor, Anzeigen, die gegen rechtliche, sittliche oder sonsti- 
ge Gebote verstoßen, abzulehnen! 

Anzeigenabdruck in der Reihenfolge ihres Eingangs, kein 
Rechtsanspruch auf den Abdruck in der nächsten Ausga- 
be! 

Wir behalten uns vor, Anzeigen, die nicht zum Themen- 
kreis des Heftes — Computer — gehören, nur insoweit 
zu berücksichtigen, wie es der Umfang des kostenlosen 
Anzeigenteils zuläßt. 
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LABEL init 
DATA 8,1,3,14,18,2 
LABEL daten 
DATA -1,2,0,3,2,3,3,2,3,8,2;-1,8,=1,=1,8 
LABEL daten2 
DATA -1,2,-2,1,1,2,2,1,2,-1,1,-2,-1,-2,-2,-1 
DIM farbe(6), feld( 11,11) ,speicher(8,8) 
FOR i=-1 TO 6 
READ farbe(i) 
NEXT i 
RETURN 


LABEL spielerklärung 

PRINT #2 AT(28;3)"SPRINGERT O0 U R" 

PRINT #2 AT(9;6) "Mit einem Springer soll ein Schachbrett durch 
wandert werden," 


PRINT #2 AT(9;8) "wobei keines der Felder 
en darf. Gesteu-"” 


PRINT #2 AT(9;18)"ert wird mit den lasten 8, 2, 4, 
TER wird der Zug” 


PRINT #2 AT(9;12) "gesetzt. 
ion gewählt wer-"” 


zweimal betreten werd 


6 und mit EN 
Vor Spielbeginn kann eine Demonstrat 


PRINT #2 AT(9;14)"den. Ein Ausdruck ist nach jedem Spiel möglic 
hz:” 


PRINT #2 AT(38;28) "Demonstration (J/N)" 
REPEAT 
h$=UPPER$( INKEY$) 
UNTIL h$="J3" OR h$="N" 
IF h$="J3" THEN demo=TRUE 


WINDOW #2 CLOSE 
RETURN 


LABEL demonstration 


GOSUB spielfeldaufbau 
GUSUB werte 


RESTORE daten3 
FOR i=1 TO 64 
READ waag,senk 
GOSUB zug_ausführen 
WINDOW CURSOR OFF 
FOR za=1 TO 5B888:NEXT za 
NEXT i 
demo=FALSE 
FOR za=1 TO 38888:NEXT za 
RETURN 


LABEL daten3 
DATA 8,7,6,8,4,7,2,8,1,6,2,4,1,2,3,1,5,2,7,1,8,3,7,5,5,4,6,6,4, 


5,6,4,5,6,3,5,4,3,2,2,1,4,2,6,1,8,3,7,5,8,7,7,8,5,7,3,8,1,6,2,4,1 
3,3 
’ ’ 


DATA 2,1,4,2,6,3,4,4,3,6,5,5,3,4,4,6,6,5,5,3,6,1,8,2,7,4,8,6,7, 
8,5,7,3,8,1,7,2,5,1,3,3,2,5,1,7,2,8,4,7,6,8,8,6,7,4,8,2,7,1,5,2,3 


FLÜCHTLINGE IN OSTASIEN 


Menschen in Not brauchen Hilfe: zuverlässig, 
schnell, wirksam. Die beiden kirchlichen Hilfs- 
werke nehmen ihren Auftrag ernst. 
INA Deutscher Camasverband, Kon 202 

KISS Postgıro Karlsruhe oder Banken und Sparkassen. 

fası Diakonisches Werk Konto 502, Postgıro Stuttgart oder 


BIER Banken und Sparkassen } 
2 STASIEN 
Kennwort ‚FLÜCHTLINGE INO B 


LISTING 


Lohnsteuer- 
berechnung 


Wer will nicht wissen, ob die Lohnsteuer, die ihm mo- 
natlich gleich vom Gehalt abgezogen wird, richtig be- 
rechnet ist? Mit diesem Programm unseres Autors 
Joachim Eibisch haben Sie jetzt Gelegenheit, die 
Richtigkeit zu überprüfen. 
Als Eingabe ist lediglich der zu versteuernde monatli- 
che Lohn einzugeben und natürlich die Steuerklasse 
und die auf der Lohnsteuerkarte eingetragenen 
Kinder. 
Das Programm liefert Ihnen dann den Betrag, der mo- 
natlich zu berappen ist. Für die Berliner Arbeitnehmer 
wird außerdem noch die Berlin-Zulage mitberechnet. 
Auf Wunsch können Sie sich die Angaben auf dem 
Drucker ausgeben lassen. 

(JE) 


Abfrage des 
Druckers 


Dieses kleine Demo-Programm unseres Autors 
Andreas Müller zeigt Ihnen, wie Sie innerhalb von ei- 
genen Programmen am besten Ihren Drucker auf 
Betriebsbereitschaft abfragen können. 
Logisch: Wenn Sie dem Drucker Zeichen senden wol- 
len und er ist nicht eingeschaltet, wartet das Pro- 
gramm, bis der Drucker das Zeichen aufs Papier brin- 
gen kann. Und Sie wundern sich vielleicht, warum 
der CPC nicht weiter arbeitet. 
Hilfreich ist da eine Abfrage auf Betriebsbereitschaft. 
Wie das genau geht, sehen Sie im Listing. Besonders 
die Zeile 150 ist wichtig. 
Also, abtippen und ausprobieren! 

(JE) 


19 seeRennunenmemeeieeteereeneerner 
28 "8 LOHNSTEUERBERECHNUNG * 
39 '# VON * 
aD ’* JUOACHIM EIBISCH * 
sa '* FUER = 
608 '* SCHNEIDER AKTIV * 
8 '* CPC 464/664/6128 JE* 
[5 1 ee Zn un 2 2 2 2 2 2 22202 2.2.2022 2 22.2 


98 ’Version 1.1 

188 MODE 2 

118 BORDER 3 

128 PRINT 

138 PRINT "Dieses Programm berechne 
t die Lohnsteuer, die bei beliebige 
r Steuerklasse und beliebigem Ein 
kommen monatlich zu zahlen ist." 
148 PRINT 

158 PRINT "” 

ingaben werden benoetipt: 
168 PRINT 
178 PRINT "” 
se gemaess 
188 PRINT "” 
gemaess Steuerkarte" 

198 PRINT " Zu versteu 
erndes monatliche Einkommen" 

288 PRINT 

218 PRINT "Als Ergebnis wird der Lo 
hnsteuer/Einkommenssteuersatz gelie 

fert, der mit den Tabellenwerten 
gemaess der L.ohnsteuertabelle uebe 
reinstimmt.” 

228 PRINT 

238 PRINT”Fuer die Berliner Arbeitn 

ehmer wird die Berlin-Zulage beruec 

ksichtigt!” 

248 PRINT 

258 PRINT"”Das zu versteuernde Einko 

mmen ist der Bruttolohn abzueglich 

eventueller Frei- betraege.” 

268 PRINT 

278 LOCATE 28,28:PRINT 
urch Tastendruck <<" 


Folgende E 


Steuerklas 
Steuerkarte" 
Kinderzahl 


">> Weiter d 


288 CALL &BBB6 
298 CLS 
388 LOCATE 28,5:INPUT "Steuerklasse 


"st 


318 IF st<1 OR st>6 THEN GOTO 298 
328 LOCATE 29,6:INPUT "Zahl der Kin 
der "ki 


338 IF ki>12 THEN CLS:LOCATE 28,12: 
PRINT "Bis hoechstens 12 Kinder!!": 
FOR i=1 TO 28908:NEXT i:GOTO 298 

348 LOCATE 28,7:INPUT "Zu versteuer 
ndes monatliches Einkommen”; stein 
358 LOCATE 298,8:INPUT "Normale Vors 
orgepauschale ( j/n) "vorsorg 
$ 

368 vorsorg$=UPPER$( vorsorg$) 

378 IF vorsorg$<>"J" AND vorsorg$<> 
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LISTING 


"N" THEN GOTO 358 

389 GOSUB 638 

390 PRINT 

488 LOCATE 28,9:PRINT 
ohn/Finkommensteuer 

DM" 

a18B LOCATE 29,11:INPUT "Sind Sie Be 
rlin-Zulagen berechtigt"; jn$: jn$=UP 

PER$( jn$) 

428 IF jn$="N” THEN GOTO 478 

439 bilnzul=( INT(stein/18)+1)*®.8 

AAB binkin=-kKi1*49.5:1IF st=4 THEN bln 
kin=b1inkin/2 

458 LOCATIE 28, 13:PRINT "Berlin-Zula 
ge ";blnzu 
1;” DM" 

468 LOCATE 
erzuschlag 

n;”" DM” 

a7 ’ 

488 LOCATE 29,16:INPUT”Druckausgabe 
gewuenscht ?";druck$ 

498 druckS=UPPER$( druck$) 

588 PRINT#8,"Zu versteuerndes Einko 


"Monatliche L 
":lohn;” 


"Berlin-Kind 
";binki 


28, 14:PRINI 


‚stein 


‚st 

528 PRINT#8,"Zahl der Kinder....... 
‚ki 

538 IF jn$="N” THEN GOTO 568 

5a8 PRINT#8, "Berlinzulage.......... 
;‚bilnzul 


558 PRINT#B, 
;binkin 

56@ PRINT#B8 

578 IF vorsorg$="J" THEN PRINT #8," 
Diese Berechnung wurde mit der norm 
alen Vorsorgepauschale durchgefuehr 
t” 

S88 IF vorsorg$="N” THEN PRINT #8," 
Diese Berecnnung wurde mit der verm 
inderten Vorsorgepauschale durchgef 
uehrt” 

598 CLS:LOCATE 208, 18:INPUT 
ne Berechnung ?";noch$ 

688 noch$=UPPER$(noch$) 
618 IF noch$="N” THEN CALL 8 
6?®9 GOTO 18 
63% IF st=1 
648 IF st=2 
658 IF st=3 
669 IF st=4 


"Berlin-Kinderzulage.. 


"Noch ei 


THEN 
THEN 
THEN 


ftfb=1314 
ftfb=5858 
ftfb=1584 
THEN ftfb=1314 
678 IF st=5 THEN ftfb=1844 
688 IF st=6 THEN ftfb=18 

699 ztabfb=ftfb+ki*2484 


788 IF st=4 THEN ztabfb=ftfb + kKi*i 
242:IF ki=1 OR ki=2 OR ki=-3 OR ki>-4 
OR ki=5 OR ki=6 OR ki=-7 OR ki=-8 OR 

ki=9 OR ki=18 OR ki=-11 OR ki=12 TH 
EN ztabfb=ztabfb ELSE ztabfb=ztabfb 
+27 
718 
720 
738 
748 


w1=158:w2=458: zw 
Zwis A iR du) -ı58) /ase) 


re4du=( zw1*5480) +1888 

redo=( ( zw1*5498) +18808) +53080 

758 IF st=5 OR st=6 THEN vsp=B:zvsp 
=®:vspmax1i=®:vspmax2=B: GOTO 858 
768 vspmax1=2348080:vspmax2=117B88B: 
IF vorsorg$="N” THEN vspmax1=108998 
:vspmax2=109N9B 

778 IF st=3 THEN vspmax1=vspmax1#2: 
vspmax2=vspmax?2*2 

789 reAo=re40/1B® 

798 zwsp=-re4do*9:1IF zvsp>vspmax1 THE 
N GOTO 818 

BUN vspmaxi=zvsp 

818 IF zvsp>vspmax2 THEN GOTO 838 
829 vspmax2=zvsp 

839 vsp=( vspmax1itvspmax2)/1B8 

848 vsp=( FIX vsp/54))*54A 

858 tabfb=ztabfb+tvsp 

869 zve=-(reAu/1BB) -tabfb 

878 IF st=3 THEN zve=zve/2 

8890 yy=(FIX(Lzve/54))*54 

898 ’IF st=3 THEN yy=yy*2 

908 gy=yy 

918 IF st=5 OR st=6 THEN GOTO 968 
928 GOSUB 19869 

938 jw=steuer*188:IF st=3 THEN jw=j 
wX2 
948 
)/10 
958 RETURN 

968 yy=ROUND( (gy*?2.5/2),1) 

978 GOSUB 1968 

988 steueri=-steuer*2 

998 yy=ROUND( (gy*1.5/2),1) 

1888 GOSUB 1868 

1818 steuer2=steuer*2 

1828 diff=steueri-steuer?2 

1838 mist=FIX(8.22*gy) 

1848 IF diff<mist THEN steuer=mist 
ELSE steuer=diff 

1858 GOTO 938 

1868 IF yy<4537 THEN steuer=®:RETUR 
N 

1878 IF yy<18836 THEN steuer=FIX((y 
y*9.22)-998) :RETURN 

1888 IF yy<88828 THEN y1=ROUND(((yy 
-18088) / 10808) ‚5) :rw=( FIXL2.1*y1*18 
en) /10VB8) -56.92:rw=( FIXLrw#y1*1000) 
/1888) +68: rw=( FIXLrw*y1*1088) /10B88 
) +2288:rw=( FIXLrw*y1*18098) /1888) +29 
62:steuer=FIX{ rw) :RETURN 


lohn= jw/1288:lohn={ F1X( lohn*1®) 


1098 IF yy<130032 THEN y1=ROUNDL((y 3) 
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LISTING 


y-80888) / 18088) ,5) :rw=( FIX(42*y1*=18 
88) /1988) +5189:rw=( FIXLrw*y1*1008) / 
1888) +29417:steuer=FIX( rw) :RETURN 
1188 steuer=FIX[L(yy*9.56) -16433) :RE 
TUAN 


SCHNEIDER AKTIV 


IMMER AM BALL 


NRZ 2 2 2 0 22 2 22 22 22 2222 2 22 2.2.22 2.2 2.22.22 
28 ’#DEMOPROGRAMN ZUM ABFRAGEN DES? 


22 '* DRUCKERS VON * 
ee ANDREAS MUELLER * 
25 '# FUER * 
26 '# SCHNEIDER AKTIV * 
27 '* CPC 464/664/6128 = 
feY: LA 2 2 2 2 2.02.2222. 22.2222 22.202 22 2 222 22 
38 MODE 2 

a8 CALL &BCB2 

SB LOCATE 1,8 

68 PRINT "In eigenen Programmen ist 


es oft wichtig zu wiszen,ob der Dr 
ucker” 
78 PRINT "betriebsbereit ist.” 

88 PARINT:PRINT "Dieses ist mit dem 
Befehl <INP> moeglich..." 
99 PRINT:PRINT:PRINT 


ına PRINT "TASTE DRUECKEN" 

118 CALI. &BB®6 

178 CLS 

138 PRINT:PRINT:PRINT " DEMO" 
140 

158 IF INP(&FS5BB) =26 THEN LOCATE 5, 


15:PRINT CHR$(2A)" Jetzt ist der Dr 
ucker eingeschaltet. "CHR$L2A) 
1608 TF INP(&FSQB) =98 THEN PRINT CHR 


$(24)" Der Drucker ist nicht betrie 
bsbereit... "CHR$(2A) 

178 TALI. &BBO6 

1808 CLS5 

198 LOCATE 5,18 

288 PRINT "Aber Vorsicht...":PRINT: 
PRINT 

218 PRINT "Nach einigem experimenti 


eren habe ich festgestellt,dass ein 
ige” 

228 PRINT "Drucker 
fern.”:PRINT 

238 PRINT "Probieren Sie es selbst, 
indem Sie die Speicherstelle <&F588 
> abfragen ." 

2AQ@ PRINT:PRINT:PRINT"Nochmal ?"” 
258 z$=INKEY$:IF z$="" THEN 258 ELS 
FE IF z$="j" THEN RUN EISE END 


andere Werte lie 


Lotto- 
zahlen 


Viele Karrieren tragen die Überschrift „Vom Teller- 
wäscher zum Millionär‘. Aber mal ganz ehrlich, wer 
wäscht schon gerne ab? Eine Möglichkeit, doch noch 
irgendwann den ‚Rolls‘ zu besitzen, ist das Lottospiel. 
Bedauerlicherweise zieht die Spielgesellschaft entge- 
gen mehrfacher Aufforderung immer die falschen Zah- 
len. Die Folge: Der rastlose Spieler wird total verun- 
sichert. 

Aber dem kann mit dem Listing von Simon Stadler 
abgeholfen werden. Wenn Sie brav die Zahlen ankreu- 
zen, die Ihnen der CPC vorschlägt dann... Nein, 
dann haben Sie immer noch nicht eine Gewinngaran- 
tie. Aber Sie haben wenigstens den Computer, dem 

Sie die Schuld an den miserablen Zahlen geben kön- 
nen. Das beruhigt! 

Wenn Sie aber doch gewinnen, dann war dieses Listing 
wohl die beste Investition, die Sie, nur mit etwas Zeit- 
aufwand, tätigen konnten. Also: Nichts wie ran! 


3211- 
Madball 


Madball ist zu dem Gesellschaftsspiel der Galaxis ge- 
worden: Alle vier Jahre treffen sich die besten Mad- 
baller auf dem Planeten Otzteg, um einen Wettkampf 
durchzuführen. Der Sieg ist für jeden Madballer das 
höchste Ziel. 

Sie, die Spieler, verteidigen das Sol-System, das bis- 
her noch nie den I.M.C. gewonnen hat. (1.M.C.=Inter- 
planetarischer Madball Cup) Sie müssen es schaffen!! 
Milliarden Terraner hoffen auf Ihren Sieg. 


DAS SPIEL 


Sie können nur zu zweit spielen. Wenn Sie gegen den 
CPC spielen wollen, müssen Sie als ersten Namen 
“CPC“ eingeben. Andernfalls müssen Sie Ihren Part- 
ner besiegen. 

Den Madball können Sie für die Richtung, in die er 
fliegen soll, programmieren. Player I bnutzt dazu die 
Tasten A und Q, Player 2 P und L. Wenn Ihr Gegner 
den Ball abschiefst, müssen Sie versuchen, ihn zu fan- 
gen. Sonst heimst er einen Punkt ein. 


EIN TIP: 


Wählen Sie die Geschwindigkeit nicht zu hoch, Sie 
können den Ball, der sehr schnell ist, nicht mehr se- 
hen. Die beste Geschwindigkeit für Anfänger ist 
100 — 200. (JE) 
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LISTING 


100 
110 
120 
130 
ı40 
150 
160 
170 
180 
190 
200 
10 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
EN" 
360 
370 
380 
390 
400 


a VON * 
: SIMON STADLER x 
rn FUER * 
. SCHNEIDER AKTIV # 
5 CPC 464/664/6128B 


nr muan mann ann ur run urnnn ern nernn 


#=Felddimensinisjerung® 
DIM al?) 
DIM b( 49) 


ruuuun 
MODE 1 
BORDER 10 

INK 0,0 

INK 1,24 

INK 2,20 

INK 3,6 

PRINT 

PRINT STRAING$({ 40,CHR$( 143) ) 
LOCATE 15,2 

PEN 3 

PRINT CHR$( 22) CHR$E 1) "I OTTOZAHL 


titelbild *##=: 


LOCATE 
PEN 1 
PRINT STRING$( AD,CHR$( 143) ) 
MOVE 40,310 

DRAW 599, 310,3 

DRAW 609,300 

DRAW 609, 100 

DRAW 599,90 

DRAW 40,90 

DRAW 30, 100 

DRAW 30,300 

DRAW 40,310 

MOVE 30,150 

DRAW 609, 150 


1,904 


runuun 

FOR x=1 
b{(x)=0O 

NEXT x 


28 
>” 


48er feld loeschen 


TO 49 


"zahlen erzeupen und 


FOR c-1 TO 7 
z=INT(RND(I 1)#49) +1 
IF b[z)=-1 THEN 600 


ablegen 


ELSE 


zvuwunr 


b{ z2)° 


680 
690 
J):af 
700 
730 
720 
730 
740 
750 
769 
770 
?BO 
7930 
ROU 
810 
820 
830 
840 
BS5O 
860 
870 
B8B0 
890 
900 
910 
9320 
930 
940 
959 
960 
970 
980 
990 


Pr 
FH 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
11?0 
1130 
1140 
1150 
1160 
Rfl e 
1170 
1180 
1190 
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FOR 4:1 TO &-c 
IF ald)>ald+!) 
d+1)=-ald) :ald)=r 
NEXT d 
NLXT c 


r‚ 


THEN r-ald+I 


‚ 


zahlen im block auspeben * 


LDCATE 

x=--1 

b>1 

FOR n=b 
PEN 1 
b>-b+t1 
x=x+1 
IF x°-7 
PRINI 
FOR o=1 

IF n: 

NEXT c 
IF n-3a(7) THEN 950 
PRINT TADI4+x*5)n; 
NEXT n 

GOTO 1010 

END 

PEN 2 

PRINT TAB( 4+x*5)n; 

GOTIO 780 

PEN 3 

PRINT TAB( A+x*5)n; 

GOTO 780 


’ 


1,8 


10 49 


THEIN x 0 ELSE 840 
T9 6 


al) THEN 920 


uazın 


zahlen in reihe ausgeben 


‚ 


LOCATE 1, 

x=-1 

FOR c=1 
x=xt+t1 
PEN 2 
PRINT TAB(4:+x*5)o(c); 

NEXT c 

PEN 3 

PRINT” "a(”7) 


18 


TO 6 


neun 


nochmal? FF*F# 


ERuer 
LOCATE 13,24 
PRINT"nochmal {J/N) 
e$=-INKEY$ 

IF e$=-""THEN 1130 ELSE IF UPPE 
$)="N"THEN MODE 2 ELSE 1180 

END 

PEN 1 

GOIO 220 


3" 


LISTING | 


ID FERNER RHEIN 

20 '* 3211-MADBALL = 

30 '* VON # 

a0 '* PASCAL. VON HUTTEN * 

sn ’* FUER * 

60 ’* SCHNEIDER AKTIV # 

70 '* CPC 464/664/6128 JE* 

80 ” HUNTER SEARAFERTECHERUHTHETEN 
108 ’ 

105 "z=#= ZEICHEN #t## 

109 ’ 

118 SYMBOL AFTER 32 

120 SYMBOL 65,9,126,98,126,98,98,98 
) 

> 

138 SYMBOL 66,8,124,98,124,98,98,12 

4,0 

148 SYMBOL 67,8,126,98,96,96,98, 126 
‚a 

15@ SYMBOI 68,8,124,98,98,98,98, 124 
0) 

’ 

1608 SYMBOL 69,8,126,96,124,96,96,12 

6,0 

170 SYMBOL 78,8,126,96,124,96,96,96 
‚8 

188 SYMBOL 71,8,126,98,96, 102,98, 12 

6,0 

198 SYMBOL 72,0,98,98,126,98,98,98, 
() 

20@ SYMBOL 73,0,48,48,48,48,48,48,8 
2190 SYMBOL 74,0,24,?21,24,24,88,12®, 

) 

2298 SYMBOL 75,8,98,1908,112,188,98,9 
B,0 

238 SYMROL 76,0,96,96,96,96,98, 126, 
0) 

>48 SYMBOL 77,8,98,118,1906,98,98,98 
‚@ 

250 SYMBOL 78,9,98, 114,186, 1902,98,9 
8,0 

260 SYMBOL 79,9,126,98,98,98,98,126 
‚a 

278 SYMBOL 89,9,126,98,126,96,96,96 
") 

’ 

28A SYMBOL 81,8,126,98,98,98, 182,12 
6,1 

298 SYMBOL. 82,8,126,98,126, 194,108, 
98,0 

308 SYMBOL 83,8,1?6,96,126,2,98, 126 
‚8 

318 SYMBOL 84,8,126,24,24,24,24,24A, 
1) 

328 SYMBOL 85,0,98,98,98,98,98, 126, 
") 

33@ SYMBOL 86,9,98,98,98,52,52,24,0® 
348 SYMBOL 89,9,98,98,124,96,96,96, 
) 

358 SYMBOL 87,8,98,98,98, 186, 126,11 
8,0 

36@ SYMBOL 88,9,198,188,56,56, 188,1 
98 


378 SYMBOL 98,98,126,12,24,48,96,126 
388 INPUT"”Wollen sie den Vorspann s 
ehen( j/n)"”;vs$ 


398 IF UPPER$( vs$) <>"J" THEN 788 
498 ° vorspann 
A1IB MODE 1:INK 98,8:INK 1,6:INK 2,9: 


INK 
428 
430 
4AB 
458 
469 
470 
489 
498 
588 
518 
528 
538 
548 


3,2:BORDER 9:PAPER B:CLS 
FOR q=16 TO 21 

RFAD b$ 

FOR z=39 TO q STEP-1 

PEN 3:LOCATE z,2:PRINT b$;" " 
SOUND 1,2*298,5,18 

FOR t=1 TO S®:NEXT 

NEXT 

SOUND 2,698,5,15 

FOR t=1 TO 58:NEXT 

NEXT 

DATA 0,A,T,E,X, + 

FOR t=1 TO 588:NEXT 

PRINT :PRINT:PRINT 

550 PEN 1 

56@ FOR z=1 TO 28:READ x$:PRINT x$; 
:SOUND 1,488,1,15:FOR t=1 TO 7®:NEX 
T:NEXT 

578 DATA 5,0,F,T,W,A,R,E," ",D,E,R, 
""N,E,U,E,N,” ",D,I,M,E,N,S,I,0,N 
580 FOR t=1 TO S@8:NEXT 

598 PLOT 1,212,3:DRAW 649,212:PLOT 
1,186:DRAW 649, 186:PLOT 1,288,2:DRA 
W 649,?208B:PI.OT 1,199:DRAW 649,198 
KMB * LAUFSCHAIFT 

618 a$="ORTEX+ PRAESENTIERT:3211 MA 
DBALL..." 

6?@ FOR z=1 TO LEN(a$) 

638 FOR t=1 TO 1@8:NEXT:LOCATE AB-z 
‚13:PRINT LEFT$(a$,z) 

6AM NEXT 

65@ FOR z=AB-LEN(a$) TO 1 STEP-1 


660 LOCATE z,13:PRINT a$;CHR$( 32) 
678 FOR t=1 TO 1988:NEXT 

ABM NEXT 

698 FOR z=LEN(a$) TO @ STEP-1 

709 LOCATE 1,13:PRINT RICHT$(a$,z); 
718 FOR t=1 TO 199:NEXT 

729 NEXT 

230 IF za%=1 THEN 770 

74a a$="AUTOR:KEN DELON -8211/79967 
3 -S5TART NOW" 

75M za%=1 

758 GOTO 629 

778 FOR t=1 TO 1999:NEXT 

788 SYMBOL 138,1,67,231,255,255,231 
‚67,1 


790 SYMROL 
231,194,128 
BAD MODE 1:INK ®,8:INK 1,26:BORDER 
1) 

819 INPUT"INSTRUCTIONS ( 
820 IF UPPER$L INS) ="J" 


133,128, 194,231,255,255, 


J/N )";IN$ 
THEN 1768 
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ES a a un UT ne mr ae kun nn TEE ee nt 


LISTING | 


830 INPUT"LEVEL 
BRCLAHM)] ";mb 
BAB PRINT:INPUT" NAME SPIELER 1";ga 
$: IF ee -"CPC" THEN INPUT"S 


TAERKF ce 1 1/217° fg 
PRINT: het "NÄME SPIELER 2"; pb$ 


INPUT"SPIEL BIS:";gr 

MODE 1:INK @,2:INK 1,8:INK 2,1 

3,6:BORDFR ?:PAPER ® 

FOR b=5 10 15 SIEP 2 

398 FOR a=5 TO 35 STEP 2 

998 LOCATE a,b:PAPER ?2:PRINT CHRY( 3 
2) :NFXT 

918 FOR c=6 TO 36 STEP 2:LOCATE 
+1:PAPER 2:PRINT CHR$Ü32) : NEXT 
929 NEXT b 

938 " Steuerung( ((BAlL 
)) 

9408 
950 
96B 
970 


[ IC BI ITZSCHNELL)- 18 


Sea 
878 
INK 
880 


c,b 


programming) 


DIM 
po=5 
FOR ac=1 TO 31 

IF UPPER$( ga$) »"CPC" 
988 a$=-INKEY$:IF a$="" 
998 IF UPPER$(Aa$) <>"Q"” 
$)<>"A" THEN 98% 

1899 GOTO 19838 

1818 o%=INT({RND( 1)*2+1) 
1829 IF 0o%=1 THEN a$="q 
183P LOCATE 
T CHR$( 144) 
1849 po=pot1 
1858 SOUND 1,198,1,15 

1869 st$lac)=a$ 

1878 NEXT 

1888 IF JOYLB)<>16 THEN 1888 ELSE 1 
118 

1898 GOTO 
11800 ” 
11985 ’# 
11989 ” 
1118 z=5:x=18:c=18 

1128 FOR ac=1 TO 31 

1130 z=z+1 

1148 IF UPPER$( st$l ac))="Q"” 
x-1:GOTQO 1168 

1158 IF UPPER$(St$lac))= 
x+1:G0T0O 1168 

116® IF x=4 THEN x=x+t2 
1178 IF x=17 THEN x=x-2 
118@ LOCATE z,x:PEN 3:PRINT CHR$( 14 
4) 

1198 FOR t=1 TO mb:NEXT:LOCATE z,x: 
PRINT” " 

1288 IF JOY(B)=1 THEN c=c-1 

1218 IF JOY(E®)=? THEN c=c+1 

1228 IF c=16 THEN c=c-1:IF c=4A4 THEN 
e=c+]1 

1238 LOCATE 37,c:PEN 1:PRINT CHRA$t 1 
33) :LOCATE 37,c-1:PRINT CHR$( 32) :LO 


st$( 31) ,1k$( 32) 


THEN 1818 
THEN 988 
AND UPPER$(a 


ElI.SE a$=-"a 


po,A2A:PAPER ®:PEN 1:PRIN 


1888 


Ball Bewegung ((())) # 


THEN x= 


="A" THEN x= 


CATE 37,c+1:PRINT CHR$( 32) 
12a®R IF c=17 THEN c=c-1 
1250 IF c=5 THEN c=c#+#1 
1268 NEXT 
12780 ° 
1295 '##R8z2 PUNKTE WERTUNG FFH#* 
1279 
1288 IF c<>x THEN 1389 
129M LOCATE 1,4:PRINT" 
":LDCATE 


37,c:PRINT” ":G60T09 1348 

13A® punkt=-punkt+1:LDCATF 2,2:PEN 1 
:PRINT UPPER$( ga$) :LOCATE 28,2:PEN 
3:PRINT punkt:FOR la=-15® TO 18 STEP 
-19:SOUND 1,1a,1,1a/1@:NFEXT 

1318 IF punkt=gr THEN 1788 


ı3?29a G60TO 1298 

1338 

1335 ’####2 Programming 2 FFFF# 
1339 

1348 pa=36 

1358 FOR bc=1 TO 32 

1368 1$=INKEY$:IF 1$="" THEN 1368 


1378 IF UPPER$E1$) <>"P” 
1$) <>"L.”" THEN 1368 

1388 LOCATE pa, 18:PAPER 
NT CHR$( 144) 

1398 pa=pa- 1 

1488 SOUND 1,58®,1,15 
1419 1IK$Cbe)=1$ 

142PR NEXT 

1438 IF JOY(®)<>16 THEN 
450 

1448 GOTO 1439 

1458 
1455 
1459 
1468 m=-37:n=19:1i=-10 

1478 FOR bce=1 TO 32 

14898 m=m-1 

1498 IF UPPER$L1K$CbCE))="P" 
n-1 ELSE n=n+1 

1588 IF n=4 THEN n=n+2 

1518 IF n=17 THEN n=n-2 
152® LOCATE m,n:PEN 3:PRINT CHR$( 14 
4) 

1538 FOR t=1 
PRINT” " 
1548 IF UPPER$( ga$) ="CPC" THEN 1588 
i55@ IF JOY(B)=1 THEN i=-i-1 

1568 IF JOYC®A)=?2 THEN i=it#l 

157n GOTO 16898 

1588 IF fq=1 THEN 1598: se=INT(RNDI( 1 
)*?+1):IF se=1 THEN i=i+ti ELSE i>-i- 
1:G60T0 1688 

159A IF 1k$lbce)="p" 


AND UPPER$( 


@:PEN 1:PRI 


1438 ELSE 1 


KtaHRR Dewepung ? 


THEN n= 


TO mb:NEXT:LOCATE m,n: 


THEN i=i-1 ELSE 


i=i+1 
1688 IF i=17 THEN i=i-1 
1619 TF i=5 THEN i=-i+t1 
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LISTING 


1628 LOCATE A,i:PEN 1:PRINT CHRA$( 13 
8) :LOCATE 4A4,i-1:PRINT CHRA$( 32) :LOCA 
TE 4,i+1:PRINT CHRA$( 32) 


1638 NEXT 

1648 

1645 ’*###3# PUNKTE WERTUNG *#F#### 
1649 ’ 

1658 IF i<>n THEN 1678 

1668 LOCATE 1,18:PRINT" 


":LOCAT 
E A,i:PRINT"” ":GOTO 958 
1678 pw=pw+1:LDOCATE 2,23:PEN 1:PRIN 
T UPPER$( gb$) :LOCATE 28,23:PEN 2:PR 
INT pw:FOR la=158 TO 18 STEP -18:50 
UND 1,1a,1,1a/1@:NEXT 
1688 IF pw=gr THEN 1788 
1698 G0OTO 1668 
1788 MODE 1:INK 8,8:INK 1,6,26:INK 
2,9:INK 3,26:BORDER ®8,26:SPEED INK 
4,4 
1718 PRINT:PRINT:PEN 1:PRINT"” SPIEL 
ENDE !":PRINT:PEN 2:PRINT” ENDSPIEL 
STAND:":PEN 3:PRINT:PRINT UPPER$(ga 
"punkt; "----- ":UPPER$( gb$) 
Er SEN 


PARINT:PAINT"” SPACE..." 


1738 a$=-INKEY$:IF a$<>" "” THEN 1738 
1748 RUN 788 

1758 ° CCCE)))) instructions (((()) 
)) 

1768 MODE 2:PAPER ®:PEN 1:CLS 

1778 PRINT:PAINT"” 3211-MA 

DBALL INS TRU 


1788 PRINT:PRINT” WIR SCHREIBEN DAS 
JAHR 3211.DAS SPIEL MADBALL HAT SI 
CH ZUM GESELLSCHAFTSSPORT NUMMER 
EINS ENTWICKELT.ALLE VIER JAHRE WER 
DEN AUF DEM PLANETEN OTZTEG DIE 
INTERPLANETARISCHEN MEISTERSCHAF 
TEN IM MADBALL AUSGETRAGEN.HIER TRE 
FFEN SICH" 
1798 PRINT” AUS ALLEN SONNENSYSTEME 
N DIE BESTEN MADBALLFR DES UNIVERSU 
MS.DER SIEG IST FUER EINEN MA 
DBALL.ER DAS HOECHSTE UND EINZIGE ZI 
El... SIE 
VERTRETEN DAS SOL-SYSTEM,DAS NOCH 
NIE. DEN T.M.C. GEWONNEN HAT.SIE MUE 
SSEN" 
1888 PRINT” ES SCHAFFEN.AUF IHRE LE 
ISTUNG HOFFEN MILLIARDEN VON TERRAN 
ERN." 
1818 PARINT:PRINT” I.M.C. = 
NETARISCHER MADBALL CUP" 
1828 PRINT:PRINT:PRINT:PRINT:PRINT” 
> TASTE <" 
1838 EVERY 18,3 GOSUB 1888:FOR t=1 


INTERPLA 


TO 38 


1848 FOR yp=15 TO 1 STEF-1 


1858 SOUND 1,7398, 18,yp 
1868 FOR s=1 TO 109:NEXT:NEXT 

1870 NEXT 

1888 a$=INKEY$:IF a$="" THEN RETURN 
189@ CLS:PRINT:PRINT" STEUFR 
UNG 3211-MADBALL 


1988 PRINT:PRINT:PRINT” ES KOENNEN 
PRO SPIEL BIS ZU ZWEI SPIELER TEILN 
EHMEN.WILL MAN GEGEN DEN COMPUTER S 
PTELEN,MUSS MAN ALS ERSTEN NAMEN >C 
PC< EINGEBEN." 
1918 PRINT” DER LINKE SPIELER (ODER 
ECPC) BEGINNT.ER HAT DIE AUFGABE,D 
EN MADBAL!l. SO VORZU- PROGRAMMIEREN 
‚WIE ER HINTERHER FLIEGEN SOLL.” 
1928 PRINT” DRUECKT DER SPIELER DIE 
TASTE > @ < ‚BEWEGT SICH DER ROTE 
BALL HINTERHER EIN FELD NACH OBE 
N.DRUECKT ER > A < ‚FLIEGT DER BALL 
EIN FELD NACH UNTEN. e 
1938 PRINT” WENN DER SPIELER EINE T 
ASTE DUECKT,ERSCHEINT UEBER DEM SPI 
ELFELD EIN PUNKT. SOBALD DIE RE 
THE VOLL IST,NIMMT SPIELER 2 DEN JO 
YSTICK.WENN ES LOSGEHEN SOLL, DRU 
ECKT ER FIRE.EIN ROTER BALL KOMMT V 
ON DER I.INKEN SEITE HER ANGEFLOGEN. 
DER” 

1948 PRINT” MUSS SEINEN FAENGER,DER 
AM RECHTEN SPIELFELDRAND STEHT, IN 
RICHTUNG BALL BEWEGEN,UM DEN BALL A 
JFZUFANGEN.WENN IHM DAS NICHT GELIN 
GT,BEKOMMT DER 1. SPIELER EINEN PUN 
KT.NUN MUSS DER RECHTE SPIELER SEIN 
EN BALL VORPROGRAMMIEREN.ER BENUTZT 

DIE ” 

1958 PRINT” > P< GE > L<. DE 
R LINKE SPIELER MUSS NUN DEN BALL F 
ANGEN. 2 

1968 PRINT:PRINT:PRINT:PRINT"” TIP: 
DIE GESCHWINDIGKEIT NICHT ZU HOCH W 
AEHLEN,DA MAN DEN BALL SONST KAUM S 
EHEN KANN.FUER ANFAFNGER IST DIE GE 
SCHWINDIGKEIT 1988-288 AM BESTEN." 
1978 PRINT" > TASTE <" 

1988 FOR r=1 TO S58:FOR t=15 TO 1 ST 
EP-8.1:50UND 1,488,1,t:FOR y=1 TO 1 
8:NEXT:NEXT:a$=INKEY$:IF a$=" "” THE 
N RUN 898 

19998 NEXT 
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Basic-Kurs: 


Alles hat 
ein Ende 
auch der 
Basic-Kurs 


Wenn Sie als aufmerk- 
samer Leser von 
Schneider aktiv unsere 
Serie über die Einführung 
in die Grundlagen der 
Basic-Programmierung 
regelmäßig verfolgt haben, 
werden Sie schon ahnen, 
worum es dieses Mal geht: 
Jetzt wird gelöscht 


Dafür sind die Zeilen 
3000 — 3990 zuständig. 
Sie finden sie im Listing 
des Gesamtprogramms, das 
wir diesmal vollständig 
abgedruckt haben. Wir 
wollen damit Lesern, die 
die ersten Folgen verpaßt 
haben, die Möglichkeit 
geben, das Programm 
vollständig abzutippen. 


DAS LISTING ZU 
DIESEM BASICLEHR-— 
GANG FINDEN SIE 
AUF DER SOFTBOX! 


Übrigens finden Sie das 
vollständige Programm 


SERIE 


auch auf unserer Softbox. 
Sie haben damit die Mög- 
lichkeit, Ihre gesamte 
Softbox zu verwalten. 
Allerdings: Sinn dieses 
Programmes ist nicht un- 
bedingt, Ihnen ein perfek- 
tes Listing zur Verfügung 
zu stellen. Wir wollen viel- 
mehr dem Neueinsteiger 
in Sachen Basic ein wenig 
die Angst vor den ersten 


“Versuchen nehmen. Ist 


diese Hemmschwelle erst 
einmal überschritten, ha- 
ben wir unser Ziel er- 
reicht. 


VERSUCHEN SIE ES 


RUHIG MIT EIGENEN 
PROGRAMMEN! 


Wir haben Ihnen einige 
Hinweise und Tips gege- 
ben, wie man einigerma- 
ßen effektiv program- 
miert und welche Überle- 
gungen dabei anzustellen 
sind. Am besten beschäf- 
tigen Sie sich jetzt mit 
unserem Programm, Sie 
werden sicher Verbesse- 
rungsmöglichkeiten fin- 


den. Dann können Sie 
schon eine ganze Menge 
und sollten sich an das 
erste eigene Programm 
wagen! 


JETZT WIRD 
GEÄNDERT! 


Aber genug der Vorworte, 
jetzt sehen wir uns das 
Listing wieder an und 
zwar die diesmal hinzuge- 
kommenen Zeilen 3000 — 
3990. Das ist der Pro- 
grammteil, den Sie errei- 
chen, wenn Sie vom Menü 
den Punkt ‚.Daten ändern“ 
ausgewählt haben. Wie 
immer wird zuerst der Bild- 
schirm gelöscht (Zeile 
3000) und mit dem gosub 
3980 (in Zeile 3010) die 
Statuszeile am oberen 
Bildschirmrand beschrie- 
ben. 

Nach der Ausgabe des Dis- 
ketteninhaltes in Zeile 
3020 wird nun die Ein- 
gabe des Dateinamens ab- 
gefragt. Dafür sind die 
Zeilen 3030 und 3040 zu- 
ständig, wobei der Datei- 
name, wie in den anderen 
Programmteilen, in der 
Stringvariablen dat$ abge- 
legt wird. Nun wird wieder 
der Bildschirm gelöscht. 
die Zählvariable z auf 

Null gesetzt und dann in 
Zeile 3060 die Einlese- 
routine angesprungen. 

Wie diese arbeitet, kön- 
nen Sie, wenn Sie es nicht 
mehr wissen sollten, in 
den vorhergegangenen 
Teilen dieser Serie nach- 
lesen. 


SUCHEN SIE MIT DEM 
INSTR-BEFEHL 


Zeile 3070 sorgt nun wie- 
der für das Beschreiben 
der Statuszeile, denn sie 
wurde ja zwischenzeit- 
lich durch die Einlese- 
routine benutzt. Als näch- 
ster Programmschritt er- 
folgt die Eingabe des Pro- 
grammnamens. In diesem 
Datensatz können Sie dann 
die gewünschten Änderun- 
gen vornehmen. Als Such- 
begriff genügt wieder der 
Teil des Programmnamens. 
den Sie mit Bestimmtheit 
wissen. Denn die Such- 
routine arbeitet mit dem 
instr-Befehl. 
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VERSUCHEN SIE ES 
SELBST: VERBESSERN 
SIE UNSER LISTING! 


An dieser Stelle müßten 
Sie eigentlich hellhörig 
werden! Da wir diese Rou- 
tine schon mehrmals in 
den einzelnen Programm- 
teilen benutzt haben, ha- 
ben Sie zum ersten Mal 
die Gelegenheit, das Mu- 
sterprogramm zu verbes- 
sern: Fügen Sie die Rou- 
tine als eigenes Unterpro- 
gramm ein und springen 
dann immer von den Pro- 
grammbteilen in diese 
Suchroutine. Geben Sie 
aber acht, ob auch im- 
mer die gleichen Lauf- 
variablen und die gleichen 
Suchstrings benutzt wer- 
den! Wenn nicht, bitte 
anpassen. Aber wir glau- 
ben, dafs das für Sie jetzt 
keine unüberwindbaren 
Schwierigkeiten mehr 
sind. 

Für den Fall, dafs der ein- 
gegebene Programmname 
(oder sein Teil) nicht ge- 
funden wurde, ist die Su- 
che erfolglos gewesen, 
und die Schleife in den 
Zeilen 3120 bis 3140 wur- 
de bis zum Schluß durch- 
laufen. Dann werden die 
nächsten Programmschrit- 
te abgearbeitet und die 
Meldung, dafs der Such- 
string nicht gefunden wur- 
de, ausgegeben. Nun kön- 
nen Sie durch den entspre- 
chenden Tastendruck ent- 
weder ins Menü zurück- 
kehren oder einen ande- 
ren Suchbegriff eingeben. 
Dies wird in den Zeilen 
3150 bis 3200 erledigt. 
Die dort verwendete Ab- 
frage durch den inkey-Be- 
fehl haben Sie ebenfalls 
schon kennengelernt. 
Falls der Programmname 
gefunden wurde, wird Ih- 
nen der Inhalt des ange- 
wählten Datensatzes in 
den Zeilen 3210 - 3250 
auf dem Bildschirm ange- 
zeigt. Diese Zeilen bieten 
keine programmtechni- 
schen Besonderheiten, 
sondern dienen nur dazu, 
den Inhalt des jeweiligen 
Datensatzes auf den Bild- 
schirm zu bringen. 

In den nachfolgenden 
Zeilen 3270 bis 3310 ha- 


ben Sie die Möglichkeit, 
gewünschte Änderungen 
einzugeben. Auch hier 
heißt es wieder: Achtung! 
Denn, wenn Sie sich die 
Zeilen genau ansehen, 
werden Sie auch hier fest- 
stellen, daß diese Ein- 
gaberoutine in ähnlicher 
Form schon im Pro- 
grammteil „Daten ein- 
geben‘ verwendet wurde. 
Versuchen Sie also, an 
dieser Stelle ebenfalls für 
beide Programmteile ein 
Unterprogramm in das 
Listing einzubauen und 
dann jeweils anzuspringen. 
Sie müssen allerdings auch 
hier wieder aufpassen! 
Vergleichen Sie alle Va- 
riablen und geben Sie auf 
die Locate-Befehle acht. 
Denn die sind in den bei- 
den Teilen verschieden. 
SPALTEN- UND 
ZEILENNUMMERN ALS 


VARIABLE SETZEN! 


Jetzt zum Setzen von 
Spalten- und Zeilennum- 
mern als Variable. Wie 
man sich da helfen kann? 
Hier eine Lösungsmög- 
lichkeit: Wenn Sie in den 
Locate-Befehlen nicht die 
Spalten- und Zeilennum- 
mern direkt als Zahl ein- 
geben, sondern als Varia- 
ble angeben und diese vor 
dem Absprung in das Un- 
terprogramm setzen, kön- 
nen Sie das Problem auf 
recht elegante Art 

lösen. Also nicht locate 
15,10, sondern locate 

sp, zei. Danach vor dem 
Absprung sp und zei 
setzen, zum Beispiel 
sp=15:zei=10: im ande- 
ren Programmteil dann 
entsprechend die ande- 
ren Werte. 


ERST NACHDENKEN, 


DANN 
PROGRAMMIEREN! 


An diesem kleinen Bei- 
spiel können Sie sehen, 
daf3 man als Programmie- 
rer immer wieder Mösglich- 
keiten suchen muß (und 
meist auch findet), wie 
man sein eigenes Pro- 
gramm noch effektiver 
und kürzer schreiben 
kann. Meist helfen ein 
paar Minuten Nachden- 


SERIE 


ken und ein Blick ins 
Handbuch schon über die 
unüberwindbar scheinen- 
den Hindernisse hinweg. 
Und hinterher fragt man 
sich dann, wo das Pro- 
blem eigentlich lag, so 
einfach ist die Lösung! 
Also nur nicht den Mut 
verlieren und notfalls ein 
wenig experimentieren! 
Jetzt jedoch weiter in 
unserem Listing. In der 
Zeile 3320 erfolgt die 
Abfrage, ob die Eingabe 
richtig war. Notfalls kön- 
nen Sie hier also eine feh- 
lerhafte Eingabe korri- 
gieren. 

Danach springt das Pro- 
gramm in die Sortier- 
routine. Warum?, wer- 
den Sie fragen, wenn bei- 
spielsweise nur die Dis- 
kettennummer geändert 
wurde? Wir wollen aber 
auf Nummer sicher ge- 
hen, denn es könnte ja 
auch der Name des 
Programms selbst geän- 
dert worden sein. 
Anschließend werden 
die Daten mit dem so ge- 
änderten Datensatz auf 
Ihren Massenspeicher 
weggeschrieben und der 
Programmteil kann 
durch den goto 120- 
Befehl verlassen wer- 
den. 


PROGRAMM VER- 
LASSEN ERST NACH 
EINER SICHERHEITS- 
ABFRAGE 


Ein kleiner Teil fehlt jetzt 


noch: Das Verlassen des 
Programms. Bitte ge- 
wöhnen Sie sich beim 


Schreiben von eigenen Pro- 


grammen an, immer die 
Möglichkeit vorzusehen. 
das Programm durch ei- 
nen solchen Menüpunkt 
verlassen zu können. 

Denn sonst ist ja das Pro- 
gramm nur durch Aus- 
schalten des Rechners 
oder durch den Dreifin- 
gergriff (gleichzeitiges 
Drücken von ESC-, Shift- 
und CTRL-Taste) auf 
nahezu brutale Weise ab- 
zubrechen. Deswegen also 
lieber einen eigenen Menü- 
punkt vorsehen: dadurch 
wird das Programm nicht 
wesentlich länger. 

Wenn Sie sich dazu die 


Zeilen 6000 bis 6040 an- 
sehen, können Sie fest- 
stellen, dafs wir hierzu 
nur fünf Zeilen benötigt 
haben. Außerdem haben 
wir dort noch eine Sicher- 
heitsabfrage eingebaut, 


‘um ein versehentliches An- 


wählen dieses Menüpunk- 
tes wieder rückgängig ma- 
chen zu können. 

Diese Zeilen dürften Sie, 
wenn Sie unseren prak- 
tischen Kurs anhand eines 
Reispielprogramms auf- 
merksam gelesen und 
auch bearbeitet haben, si- 
cher ohne Erläuterungen 
verstehen. Für die Ein- 
steiger nur der Tip: 
Befehl call O sorgt für das 
Abbrechen des Pro- 
gramms. Dadurch wird 
der Rechner in einen Zu- 
stand zurückversetzt, der 


HILFERUF UND 
RAT ZU FOLIO 


Zum Programm Folio in 
Heft 3/87 gab es einige 
Probleme, die nicht 

durch das Listing, son- 
dern durch Unklarheiten 
in der Beschreibung her- 
vorgerufen wurden. Des- 
halb noch einmal der 
Autor: 

Nach dem Programm- 
start erscheint ein Menü. 
Durch einmaliges Drük- 
ken der RETURN-Taste 
wird der Bildschirm 

frei, durch nochmaliges 
Drücken erscheint der 
Cursorpunkt oben links. 
Zu 1. (Rechteckiger 
Rahmen): 

Cursorpunkt an die ge- 
wünschte Stelle fahren, 
Shift und Pfundtaste 
drücken (zweiter Punkt 
erscheint). Nach rechts 
fahren, so weit, wie der 
Rahmen lang sein soll. 
Keine Taste drücken. 
Jetzt mit dem Cursorpunkt 
nach unten fahren, so weit 
wie der Rahmen breit sein 
soll. Jetzt erst den zwei- 
ten Punkt dort stehen 
lassen und über die Pfeil- 
taste (unter dem Pfund- 
zeichen) ins Menü zurück- 
kehren. Das Ausmessen 
des Rahmens erfolgt näm- 
lich über die Diagonale. 
Zu 2.: 
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dem Ausschalten und 
anschließenden Wieder- 
einschalten entspricht. 


DAS ENDE UNSERES 
KURSES: SIE HABEN 
VIEL GELERNT! 


Jetzt sind wir ans Ende 
unseres Basic-Kurses für 
Neueinsteiger angekom- 
men. Wir hoffen, dafs Sie 
einiges dazugelernt haben 
und sich bald an eigene 
Programme heranmachen 
werden. Wenn Sie ein be- 
sonders gutes ausgetüf- 
telt haben, schicken Sie 
es ruhig an Schneider 
aktiv. Unsere Programm- 
redaktion wird es wohl- 
wollend prüfen. Wer weiß, 
vielleicht ist es so grandios, 
dafs wir es abdrucken. 

(JE) 


Cursorpunkt an die ge- 
wünschte Stelle fahren. 
SHIFT und Pfundtaste 
drücken, Punkt verdoppelt 
sich. Jetzt den Radius 
abmessen, indem ein zwei- 
ter Punkt nach rechts be- 
wegt wird. Dann mit der 
Pfeiltaste ins Menü zu- 
rück. Den Kreis auswäh- 
len, er wird gezeichnet. 
Zu 3. (Schattierter 
Kreis): 

Beim Kreis mit Schatten 
wird ebenso verfahren. 
Nachdem dem erste Kreis 
an der endgültigen Stelle 
steht (wenn er noch ver- 
schoben wurde), wird die 
Pfeiltaste gedrückt. Jetzt 
wird der Schatten auto- 
matisch eingezeichnet. 
Mit einer anderen Metho- 
de müßte beim Verschie- 
ben immer der Schatten 
mitgezeichnet werden, 
was eine zu große Zeitver- 
zögerung ergibt. 

Zu 4. (Pfeil zeichnen): 
Cursorpunkt an die ge- 
wünschte Stelle bringen. 
Zweiten Punkt, wie bereits 
beschrieben, holen. 

Punkt so weit nach rechts 
verschieben, wie der 

Pfeil breit sein soll (bes- 
ser halbe Breite). Über 
die Pfeiltaste unter dem 
Pfundzeichen zurück ins 
Menü und „‚Pfeil‘‘ anwäh- 
len. 

Werner Arndt, 

Wiesbaden 


LISTING 


20 '* PROGRAMMVE.RWAL TUNG * 
38 °* FUER * 
au '* CPC 464/664/6128 * 
SQ (suruueeeerunenrgeeermieereeuueeen 
60 MODE 2 

708 OPENOUT "dummy":MEMORY HIMEM-1:CLOS 
EOUT 

88 WINDOW #1,1,80,1,1: WINDOW #0,1,80,2, 
25 


98 DIM pn$(289),Fi1n$(290) ,0rt$(288),l1ae$ 

(20%) ‚bem$(288) 

108 RORDER 3 

1198 INK 8,3 

128 PRINI #1, CHR$(24); ” 

PROGRAMM VERWALTUNG / HAUPTME 

NUE ":PRINT 

4 1,CHR$(24); 

138 LOCATE 24 ,18:PRINT"”< 1 > Programme 
in Datei aufnehmen" 

148 LOCATE 24 ,11:PRINI"”< 2 > 
aus Datei loeschen" 
158 LOCATE 24 ‚12 :PRINT"< 

dern" 

168 LOCATE 
suchen" 
178 LOCATE 24,14 :PRINT”< 5 > 

Liste ausdrucken” 

188 LOCATE 24 ,15:PRINT"”< 6 > 
Bearbeitung” 

198 LOCATE 32,17:PRINT "Ihre Wahl” 

288 a$=INKEY$:IF a$="" THEN GOTO 288 
218 a=VAL(a$):IF a<1 OR a>6 THEN 288 
228 ON a GOTO 1888 ,20080 ‚3090 ‚A800 ,5008, 
[511717] 

1889 CLS 

1818 PRINT 41, 


Programme 


3 > Daten aen 


24 ,13:PRINT"< A > Programme 


Programm- 


Ende der 


CHR$(24);" 

Daten eingeben 

"= CHR 

$(24); 
1828 LOCATE 25,12:PRINT 
u angelegt werden ? 
1838 LOCATE 36,14 :PRINT "j/n” 
18498 a$=INKEY$:IF a$="" THEN 1848 
1850 IF a$="n" THEN 50SUB 8888:6G0T0 11 
14]4] 
1868 IF a$<>"j" THEN 1848 
1878 CLS:LOCATE 25,12 :PRINI 
je neue Datei heissen ?” 
1888 LOCATE 35,14: INPUT dat$:IF LEN(da 
t$)>8 THEN CLS:PRINT CHR$(7):LOCATE 25, 
12:PRINT "Dateiname zu lang":FOR i=1 T 
0 1589:NEXT i1:G0T0 1878 
1899 z=® 


"Soll Datei ne 


"Wie soll d 


1108 PRINT #1, CHR$(24);” 

"-z;" Datensaetze bereits eing 
eben Frei: ";288-z;" "”; 
CHRA$(24); 


1118 C1S:z=z+1:IF z>288 THEN z=280:CLS: 
PRINT CHR$(7):LOCATE 38,12:PRINT” Datei 


voll”:FOR i=1 TO 1888:NEXT i:G0T6 128 
1128 LOCATE 28,18: INPUT "Programmname 
IRRE EIER TREPAEN GE "=pn$(z):pn$(z)=UPPER$(pn$ 
(z)): IF LEN{pn$(z))>25 THEN pn$(z)=LEFT$ 
(pn$(z),25):LUOCATF 1,11:PRINT SPACE$(8®) 
1138 LOCATE 28,11: INPUT "Disketten/Kas 
setten-Nr.......: ";ort$(z):IF LEN(ort$(z)) 
>5 THEN LOCATE 28,11:PRINT "Eingabe zu 
lang 

":PRINT CHR$(?):FOR i=1 
TU 1588:NEXT i:6G0T0 1138 
114B LOCAIE 29,12: INPUT "Filename des 
Startprogramms..: ";filn$(z):filn$(z)=UP 
PFA$(FiIN$(Z)):IF LEN(FiIlN$lZ))>12 THEN L 
OCATE 29,17:PRINT "Filename zu lang 


":PRINT CHR$(7):FOR i=1 TO 1588:N 

EXT i:6G0TO 1148 
1158 LOCATE 28,13: INPUT "Laenge des P 
rogrammes........: ";lae$(z):IF LEN(lae$(z 
))>4 THEN LOCATE 28,13:PRINT "Eingabe z 
u lang \ 
":PRINT CHR$(7):FOR i=1 TO 15 
PB:NEXT i:60T0 1158 

1168 L.OCATE 28,14: INPUT "Bemerkungen.. 
ERSTER ":bem$(z):bem$(z)=UPPER$(be 
m$(z2)):IF I.EN(bem$(z))>38 THEN LOCATE 53 
‚14:FOR i=1 TO LEN(bem$(z)):PRINT ” ";:N 
EXT 1:G60T0 1168 

1178 LOCATE 27,23: INPUT "Eingabe rich 
tig ";zricht$: richt$=UPPER$(rIicht$): I 
F richt$="N” THEN z=z-1:G0T0O 1188 

1188 LOCATE 27,24: INPUT "Weitere Eing 
aben ";weiter$: IF UPPER$(weiter$)="J" 

THEN GOTO 1188 
1198 GOSUB 82088 

1290 GOSUB 8498 
1218 GOTO 128 
2088 CLS 
2B18 GOSUB 2988 
2828 LOCATE 26,18:PRINT”"Sie wollen Dat 
ensaetze loeschen ?" 


283R LOCATE 34,12:PRINT"Sind Sie siche 
r7"” 

2048 CALL &BB18 

2858 IF INKEY(46)=8 THEN GOTO 128 


2N6A 
2078 


IF INKEY(45)=8 THEN GOTO 2888 
GOTO 29848 

2888 CI.S:CAT 

2898 LOCATE 15,21:PRINT"Aus welcher Da 
tei soll ein Programm geloescht werde 
12" 

2189 LOCATE 38,23 :INPUT 
="" THEN GOTO 2188 
118 CLS:Z=9:G0SUB 8830 
21290 GUOSUB 2988 

-13# LOCATE 28,11:PRINT"Bitte den Name 
n des Programms eingeben," 

2149 1LOCATE 27,12:PRINT"das geloescht 
werden soll" 


"" dat$:IF dat$ 
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2158 LOCATE 39,15:INPUT””,loeschn$ 
2168 loeschn$=UPPER$(loeschn$):b=1 
2178 FOR i=b TO z 
2188 IF INSTRA(pn$(i),loeschn$) THEN GOT 
0 22609 
2198 NEXT i 
2288 CLS #9:L0OCATE 28,12:PRINT "Progra 
mmname ";loeschn$;” nicht pgefunden”:FO 
R i=1 TO 18808:NEXT i 
2218 LOCATE 49,1,24:PRINT #8," N=Neuen 
Programmnamen zum Loeschen eingeben 
Z=Zurueck zum Menue”; 
2228 CALI. &BB18 
2238 IF INKEY(46)=® THEN CLS:G6070 2130 
2248 IF INKEY(71)=8 THEN GOTO 2998 
2258 GOTO 2220 
2268 CLS #8:LOCATE 15,8:PRINT "Datensa 
tz Nr "-i:LOCATE 15,18:PRINT"P 
rogrammnane "-pn$(i) 
2278 LOCATE 15,11:PRINT”Programmlaenge 
"-lae$(i) 
LOCATE 15,12:PRINT"Startfile 
: ";filn$(i) 
LOCATE 15,13:PRINT"Disk/Kass-Nr. 
"ort$(i) 
2388 1.OCATE 15,14 :PRINT"Bemerkungen 
”-bem$l(i) 
2318 LOCATE 1,24:PRINT"L=Diesen Datens 
atz loeschen W-Weitersuchen 
7/=Zurueck zum Menue" 
2328 CALIll 5GBB18:IF INKEY(36)=9 THEN GO 
TO 2338 ELSE IF INKEY(?1)=8 THEN GOTO 
2999 ELSE b=1+1:60T0 2178 
2338 FOR y=-i TO z-1 
2348 pn$ly)=pn$ly+1N):ort$(y)=ort$(y+1):lae 
$ly)=lae$ly *N):Ffiln$ly)=Filn$(y+1):bem$(y) 
=bem$(y+1) 
2359 NEXT y 
2368 IOCATE 


22808 


2298 


1,24 :PRINT” 
Dieser Datensatz wurde g 
eloescht De 
2378 FOR w=1 TO 1899:NEXT w:2=2-1:G05U 
B 84908 
2388 CLS:4.OCATE 7,11:.PRINT"Wollen Sie 
weitere Datensauaetze aus der gleichen D 
atei loeschen <j/n> " 
2398 1.0CATE 39,12:INPUT "" wei$:IF UPP 
ER$(wei$)="J" THEN CLS:G0TO 2138 
2408 CLS #8 
2A19 GOSUB 8499 
2428 GUTO 128 
2980 PRINT #1, CHR$(24);” 

Datensaetze loeschen 

"= CHR 

$(24);:RETUAN 
29398 ERASE pn$,ort$,lae$,Ffiln$,bem$:DIM 
pn$(29B) ,ort$(298),1ne$288),Fi1n$(29B),b 
em$(2AB):CLS :G0T0O 178 
3nna CLS 


3AM GOHSUB 398 


3929 CAT 

3838 LOCATE 18,22:PRINT"In welcher Dat 
ei sollen Datenssaetze geaendert werden 
be 
3040 


3958 
3968 


LOCATE 35,24 :INPUT"";dat$ 
CS 
z=B:G05UB 8830 
3078 GOSUB 3988 
3888 1.OCATE 18,11:PRINT "In welchem Da 
tensatz sollen Aenderungen vorgenommen 
werden?” 
3898 LOCATE 16,12:PRINT"Als Suchbegrif 
f bitte den Programmnamen eingeben!"”" 
3188 LDOCATE 38,15:INPUT”" ‚aender$ 
3118 aender$=UPPER$(aender$):b=1 
3128 FOR i=b TO z 
3138 IF INSTRA(pn$(i),aender$) THEN GOTO 
3218 
3148 NEXT i 
3158 CLS #8:L0CATE 28,12:PRINT"Datensat 
z ";aender$;” nicht gefunden":FOR y=1 T 
0 2AMN:NEXT y 
3168 IOCATE #8,1,24:PRINT #8,” A = 
Anderen Namen eingeben 

M = Menue”; 
3170 
3188 
3198 
3798 
3218 
tz Nr 


CALL &BBO6 
IF INKEY(69)=8 THEN C1S5:G0T0 3988 
IF INKEY(38)-8 THEN COTO 2998 
G0T0O 3188 
CLS #08:L0CATE 15,4:PRINT "Datensa 
";i:LOCATE 15,6:PRINT"P 
rOogrammname : ";pn$(i) 
3228 LOCATE 15,7:PRINT"Startfile 
”-Filn$(i) 
3238 1.OCATE 15,8:PRINT"Programmlaenge 
”;lae$(i) 
LOCATE 15,9:PRINT"Disk/Kass-Nr. 
”"ort$(i) 
LOCATE 15,180:PRINT"Bemerkungen 
”:bem$(i) 
LOCATE 15,12:PRINT CHA$(24);"Bitte 
den Datensatz neu eingeben" ;CHR$( 


3248 


3268 
nun 
24); 
3278 LOCATE 15,15: INPUT "Programmname 
";pn$li):pn$li)=UPPER$(PN$(E)): 
IF LEN(pn$(i))>25 THEN pn$li)=LEFT$Lpn$ 
(i),25):LOCATE 1,16:PRINT SPACE$(88) 
3288 LOCATE 15,16: INPUT "Startfile 
";filn$li):filn$(li)=UPPER$(Fil 
n$ei)):IF LEN(FilN$Ci))>12 THEN LOCATE 15 
‚16:PRINT "Filename zu lang 


":PRINT CHAS(7):FOR y=1 TO 1588 :NE 
XT y:50T0O 3288 
3298 LOCATE 15,17: INPUT "Disk/Kass-Nr 
"ort$(i1):IF LEN(ort$(i))>5 TH 
EN LOCATH 15,17:PRINT "Eingabe zu lang 
":PRINT CHR$(7):FOR y-1 TO 15 
@M:NEXT y:G0T0 3298 
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33aR LOCATE 15,18: INPUT "Proprammlaen 
pe : "z;lae$li):IF LEN(lae$(i))>A4 TH 
EN LOCATE 15,18:PRINT "Eingabe zu lang 


":PRINT CHR$(7):FOR y=1 T 
0 1589:NTXT y:GOTO 3380 
3318 LOCATE 15,19: INPUT "Bemerkungen 
”;bem$(i):bem$(i)=UPPER$(bem$( 
i)):IF LLEN(bem$(i))>38 THEN LOCATE 39,19 
:FOR y=1 TO LEN(bem$(i)):PRINI "” ";:NEXT 
y:G0T0 3310 
3328 LOCATE 27,23: INPUT "Eingabe rich 
tig ";zricht$: richt$-UPPFR$(richt$): I 
F richt$="N" THEN CLS:6070 3218 
3338 GOSUB 8290 
3349 GOSUB 8400 
3350 GOTO 128 
3988 PRINT #1,CHR$(24);” 
Datensaetze aendern 
”CHR$(2 
4); 
3998 
aan 
apvıo 
a828B CAT 
aB838 LOCATE 18,22:PRINT"In welcher Dat 
ei sollen Datensaetze gesucht werden?” 
4848 LOCATE 35,74 :INPUT”";dat$ 
4858 CLS 
a060 z=B:G0SUN 8830 
A878 GOSUB 4988 
ARBa LOCATE 28,11:PRINT"Bitte den Name 
n des Programms eingeben," 


RETURN 
CLS 
GOSUB 4988 


a898 LOCATE ?7,12:PRINI"”der gesucht we 

rden soll” 

4188 LOCATE 37,15:INPUT"”";such$ 

A118 such$=UPPER$[such$):c=1 

4128 FOR y=c TO z 

4138 IF INSTA(pn$(y),such$) THEN GUTO 4 

208 

4148 NEXT y 

A158 CLS 

4168 LOCATE 28,12:PRINT "Gesuchtes Pro 

gramm >> ";such$;” << nicht gefunden” 

4178 FOR w=1 TO 1888 

4188 NEXT w 

4198 GOSUB 4988 

a200 CLS 

4218 LOCATE 15,8:PRINT"Gesuchter Daten 

satz hat die Nummer "”;y 

4228 LOCATE 15,18 :PRINT”Programmname 
"-pn$(y) 

4238 1.OCATIE 15,11:PRINT"Programmlaenge 
":l1ae$(y) 

4248 I0OCATE 15,12:PRINT"Startfile 
"-filn$(y) 

4259 LOCATE 15,13:PRINT"Disk/Kass-Nr 
";ort$({y) 

4260 LOCAIE 15,14 :PRINT"Bemerkungen 


"bem$(y) 


4278 I OCATE 15,16:PRINT"Diesen Datensa 
tz drucken ?" 

4288 LOCATE 4®,18:1NPUT"" janein$ 
janein$-UPPER$(jonein$) 

IF janein$="N” THEN GOTO 4368 
PRINT #8,"Progrömmname......ereueeee: 
";pn$(y) 

PRINT #8,"Proprammlaenge......-...--.- 
";l1ae$ly), 

PRINT #8,"Startfile.......--.........- 
ED: "-filn&ly) 

PRINT #8,"Disk/Kass-Nr..............- 
":ort$(y) 

PRINT #8 ,”"Bemerkunpen..............-. 
aha ee "-bem$(y):PRINT #8 

GOTO 4988 

48939 END 
4388 LOCATE. 
n >N<euen 


1,24 :PRINT ">W<eiter suche 

Frogrammnamen ?>I<n neuer 

Datei suchen >A<bbrechen "”; 

ag918 CALI. EBBB6:IF INKEY(59)=-8 THEN c= 

y+1:5010 4178 

4928 IF INKEY(69)=ß THEN GOTO 2990 

ag3238 IF INKEY(46)=-8 THEN CiL5:650T0 48808 

AGAB IF INKEY(35)=8 THEN ERASE pn$,ort. 

$ ,lae$,Tiln$,bem$:DIM pn$(228),ort$(208), 

l15e$(?88),fi 1n$(?788),bem$(?299):CL5:G0T0 4 

141772] 

4958 GOTO 4918 

A368 LOCATE 1,24 :PRINT 

mmnamen eingeben >I<n neuer 

>A<bbrechen der Suche”; 

RE TURN 

PRINT #1,CHR$(24);” 

Datensaetze suchen 
”CHR$C2 


">N<euen Progra 
Datei su 
chen 
49379 
49938 


4); 
4998 
a1 41417) 
sR1A 
5928 CAI 

5838 LOCATE 18,22:PRINT"Welche Datei s 
oll ausgedruckt werden ?" 

SAAB LOCATE 35,24 :INPUT"”";dat$ 

5059 CLS 

5R6B z=9:G05UB 8838 
5e?8 GOSUB 5998 

5888 LOCATE 29,11:PRINT 
ne?" 

5898 LOCATE 23,12:PRINI 
ier eingelegt?” 
5189 CALI &BB18:IF 
To 5138 

5118 IF INKEY(46)-8 THEN CLS:G0TO 2998 


RETURN 
CLS 
GOSUB 5999 


"Drucker on-li 
"Genuegend Pap 


INKE.Y(45)=-® THEN GO 


5129 GOTO 5188 

5138 CLS:LOCATE 8,12:PRINT "Wird Mitles 
en der Datensaetze auf dem Bildschirm 
gewuenscht?”":mit]J=®:CALl. EBB18:IF INKE 
Y(45)=-8 THEN mitl=] 
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5148 PRINT #8,CHR$(27);"C" ;CHR$(72); 
5158 PRINT #8,CHR$(27);"N"” ;CHR$(8); 
5168 PRINT #8,CHR$(15); 
5178 PRINT #8,5STRING$(132,"-") 
5188 PRINT #8,"LfdNr";TAB(9)"Programmna 
me"; TAB(48)"DiskNr";TAB(48)"Startfile”;T 
AB(64)"Laenge"”;TAB(72)"Bemerkungen" 
5198 PRINT #8,5TRING$(132,”-"):IF mitl= 
8 THEN CLS:LOCATE 38,12:PRINT "Liste w 
ird gedruckt" 
5200 zeile=B 
5218 FOR q=1 TO z 
5228 IF mitl=8 THEN GOTO 5288 
5238 CLS 
5248 GOSUB 8608 
5258 FOR ml=1 TO 1208 
5268 NEXT ml 
5288 PRINT #8,q9;TAB(9)pn$(q);TAB(AB)ort$( 
gq);TAB(48)filn$(g);TAB(64)lae$(q);TAB(72)b 
em$(g) 
5298 NEXT .-q 
53808 PRINI 
ng :";dat$ 
5318 PAINT #8,CHR$(12); 
532@® CLS:LOCATE 25,12:PRINT "Liste noc 
hmals drucken ?"”:PRINT CHR$(7) 
5338 CALL &BB18:IF INKEY(45)=® THEN CL 
5:560T0 5178 
5340 GOTO 2998 
5998 PRINT #1,CHR$(24);” 

Programmliste drucken 

”-CHRA$C 


#8:PRINT #8,"Dateibezeichnu 


24); :RETURN 
6D08 CLS 
6B 18 LOCATE 27,18: PRINI"Sie wollen da 
s Programm beenden?" 
86029 LOCATE 33,12: PRINT 
her?" 
60838 LOCATE 48,14 :INPUT"”" ,ende$ 
60848 ende$=UPPER$(ende$):IF ende$="J3" T 
HEN CALL ® ELSE CLS:G0T0 128 
7888 CLS:G0TO 128 ° Zeile faellt spaet 
er weg 
8B8R CLS:2=B 
8018 LOCATE 25,12: PRINT 
ame eingeben !"” 
802@ LOCATE 33,14: INPUT dat$ 
8838 CLS #1:PRINT #1,CHR$(24);” 

Daten werden einge 


"Gind Sie sic 


"Bitte Datein 


lesen 
"-CHAR$(24);:0OPENIN dat$ 
894R WHILE NOT EOF 
BBO50 7=zZ+1 

8068 INPUT #9,pn$(z) 
08878 INPUT #9,ort$(z) 
8088 INPUT #9,1ae$(z) 
889@ INPUT #9,filn$(z) 
8188 INPUT #9,bem$(z) 
8110 WEND 

8128 CLOSEIN 


8138 CLS:RETURN 

8208 CLS:PRINT #1,CHA$(24),"” 
Sortieroutine laeuft, bit 

te warten "CH 

R$(24) 


8218 flag --1 
8228 FOR i%=1 TO z-1 


8238 IF pn$(i%)<=pn$(i%+1) THEN GOTO 82 
88 

8248 hname$=pn$(i%):hort$=ort$(i%):hlae$ 
=1lae$li%):hfiln$=filn$li%):hbem$=bem$li% 
) 


8258 pn$(i%)=pn$li%+1):ort$(li%)=-ort$(li%+1 

):lae$li%)=-lae$li%+1):Filn$li%)=-Filn$li%+1N 

):bem$(li%)=-bem$(i%+1) 

8268 pn$(i%+1)=hname$:ort$(i%+1)=hort$:l 

ae$li%+1)=hlae$:filn$li%+1)=shfiln$:bem$( 

i%+1)=hbem$ 

8270 Flag=® 

8288 NEXT i% 

8298 IF flag=® THEN GOTO 8218 ELSE RE 

TURN 

8408 CLS:PRINT #1, CHR$(24);” 
Speicherroutine 1 

geuft ":C 

HR$(2A); 

3418 OPENOUT dat$ 

8428 FOR i=1 TO z 

8438 PRINT #9, pn$(i) 

8448 PRINT #9, ort$(i) 

3450 PRINT #9, lae$l(i) 

8468 PRINT #9, filn$(i) 

84790 PRINT #9, bem$l(i) 

8488 NEXT i 

8499 CLOSEOUT 

8508 RETURN 

8688 LOCATE 2B,zeile :PRINT"Programmnam 

e: ";pn$(g) 

8618 LOCATE 28,zeile+1:PRINT"Disk/Kass/ 

Nr: ";ort$(qg) 

8628 LOCATE 2®8,zeile+2:PRINT"Startfile 


: ";filn$(g) 
8638 LOCATE 28,zeile+3:PRINT"”Laenge 
: ";1lae$lq) 
8548 LOCATE 28,zeile+t4 :PRINT"Bemerkung 
en : ";bem$(g) 
8658 LOCATE ?B,zeile+6:PRINT"Datensatz 
Nr: ";q 


’ 
8668 RETURN 


SCHNEIDER AKTIV 
JEDEN 


MONAT NEU! 
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Alternaltiver 
Grafikeditor 


Dieses Programm wurde zur Programmierung von Vek- 
torgrafiken entwickelt. Motivation des Programmau- 
tors Thomas Scheer war es, einen leistungsfähigen 
Grafikeditor mit den Eigenschaften eines ‘CHEMO- 
CAD'-Programmes, kombiniert mit einer Dateiverwal- 
tung, zu erstellen. um interaktiv Grafik(en) und Text- 
information zu verwalten. 


WARUM „ALTERNATIV‘? 


Die erstellten Grafiken benötigen weit weniger 

Speicherraum als ein herkömmlich abgespeichertes 

‘SCREEN‘. 

Das Programm beinhaltet gleichzeitig eine Dateiver- 

waltung. mit der bearbeitete Bilder mit Text(en) 

zur Information versehen werden können und -- wie 

bei einem Dateiprogramm - gesucht. geblättert. ge- 

löscht und editiert werden kann (ustf.). 

Die Bildschirmgrafik läuft sehr schnell, sie wird vom 

Programm aus in Maschinencode übersetzt (compi- 

liert) und... 

als Folge dessen kann sie von anderen Programmen 

ebenfalls benutzt werden. 
Es lassen sich ohne grofßse Mühe die vom Programm er- 
stellten Bilddateien in andere Programme einbauen. 
Beispiel: 

10 MEMORY &7FFF 

20 LOAD "BILD.AGR',&8000 

30 MODE 2:PLOT 0,0.1:CALL &8000 
wobei das Programm “BILD.AGR“ auch an anderer 
Speicherstelle eingelesen werden kann als &8000. so- 
fern es seine Länge zuläfst. Die Bezeichnung “BILD. 
AGR“ steht in diesem Beispiel stellvertretend für jede 
beliebige Bilddatei, die EXTension “.AGR“ allerdings 
kennzeichnet den Typ der von diesem Programm er- 
stellten Binärfiles. Um den Ursprung des Vektorbildes 
zu verändern, bedient man sich einfach des ORIGIN- 
Befehls des Schneider-Basics. Die Grafik wird in der 
Farbe des zuletzt gePLOTeten Pixels aufgebaut: um 
sie in obigem kurzen Beispiel wieder zu löschen, be- 
dient man sich beispielsweise der anschließenden Be- 
fehlsfolge: 

40 PLOTR 0,0.0:CALL &8000 
und um zu vervielfältigen 


50 FOR i=20 TO 100 STEP 20: FOR J=20 TO 
100 STEP 20 

60 PLOTR 0.0.1:ORIGIN LJ:CALL &8000 

70 NEXT:NEXT 
Die Speicherstelle &8000 ist nur willkürlich. die Vek- 
tordatei kann auch an eine andere Position geladen 
werden: 

bild=&9FFF:LOAD°BILD.AGR“.bild:CALL bild 
wobei allerdings vorher zu prüfen ist. ob die Länge der 
Bilddatei noch innerhalb des frei verfügbaren RAM- 
Speichers Platz hat. 


DIE FUNKTIONEN 


1. Zeit/Datumfunktion 

Nach Aufruf des Programms wird man zunächst aufge- 
fordert. Datum und Uhrzeit einzugeben. Später wird 
in jeder Phase innerhalb eines kleinen Bildschirmfen- 
sters aktuelles Datum/Uhrzeit ausgegeben. Auch bei 
der Verwendung der Datei wird zunächst automatisch 
in jeden neu eingegebenen Satz Datum und Uhrzeit 
kopiert (keine Angst: kann auch überschrieben wer- 
den!). Vom Hauptmenü ausgehend. kann, z.B., 

bei fehlerhafter Eingabe zu Programmbeginn, korri- 
giert werden. 


2. Der Grafikeditor 

Die folgende Aufforderung lautet, den Namen der zu 
bearbeitenden Bilddatei einzugeben. Bei Drücken der 
ENTER-Taste wird im rechten Bildschirmtenster 

ein Katalog von (sofern bereits vorhanden) Bildda- 
teien ausgegeben. Sollten Sie beabsichtigen. ein neu- 
es Bild zu zeichnen, so übergeben Sie diese Frage mit 
der ENTER-Taste: als Bildbezeichnung wird vom 
Programm vorläufig “"NONAME.AGR“ angenom- 
men. 

Jetzt befindet man sich schon im Grafikeditor. Ein 
Pfeilsymbol innerhalb des gröfsten Bildschirmfensters 
kann mit den Cursor- (oder Pfeil-)Tasten auf die ge- 
wünschte Position gebracht werden, um dort zu be- 
ginnen. Im rechten Fenster wird das Grafikmenü ein- 
geblendet, aus dem Sie die nachfolgend beschriebe- 
nen Tastaturbefehle entnehmen können. 
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2.1 Die Cursortasten (Pfeil nach oben, unten, links, 
rechts) dienen dazu, den Grafikcursor zu bewegen. 
2.2 Die COPY-Taste schaltet von der DRAW zur 
PLOT-Funktion und umgekehrt. 

2.3 Die Leertaste SPACE dient dazu, die PLOT- 

oder DRAW-Funktion auszuführen. Welche Funk- 
tion (DRAW/PLOT) gerade aktiviert ist, Können Sie 
aus dem Grafikmenü ersehen (COPY=<FUNKTION>) 
oder natürlich aus dem Grafikscreen. 

2.4 Die Taste S (STEP-Funktion) schaltet die Sprung- 
weite je Tastendruck auf eine der Cursortasten auf 
den doppelten Wert um (bis maximal 16 Pixel). So 
läßt sich einerseits schneller durch die Cursortasten 
(2.1) zu einer entfernten Bildposition gelangen, ande- 
rerseits können normierte Matritzen erstellt werden 
(Punktraster etc.). 

Nachdem der Wert STEP=16 erreicht ist (mehrmali- 
ges Drücken von ‘S‘), wird beim Drücken von S die 
Sprungweite wieder auf | gesetzt. 

2.5 Die Textfunktion (Taste T) erlaubt es, darstell- 
bare ASCII-Zeichen von der Tastatur aus einzugeben. 
Die nach Drücken der T-Taste folgenden Eingaben 
(bis zur ENTER-Taste) werden an der momentanen 
Cursorposition ausgegeben und in die Grafik einge- 
bunden. Zu beachten ist, dafs nach Aufruf dieser 
Funktion stets die PLOT-Funktion aktiviert ist. 
(Beachte auch Nachbemerkung) 

2.6 Die Lösch-Funktion (Taste U) macht den zuletzt 
gemachten Befehl rückgängig (Linien, Punkte, Text- 
zeichen). 

Um ein Vieleck zu löschen, das durch die POLYGON- 
Funktion (2.8) erstellt wurde, muß entsprechend oft 
die U-Taste gedrückt werden. 

2.7 Im Unterschied zur Löschfunktion kann durch 
die E-Taste (Edit-Funktion) jedes beliebige Bildele- 
ment gelöscht werden. Der Bildschirmmodus wech- 
selt auf mehrfarbig (MODE 1), und das jeweils blin- 
kende Bildelement kann durch Drücken der DEL- 
Taste ausradiert werden. Bei umfangreicheren Grafi- 
ken kann dieser Vorgang etwas länger dauern als im 
Normalmodus. Drücken der Taste X veranlafst die 
Rückkehr zum Grafikeditor. 

2.8 Das Optionsmenü erscheint nach Drücken der 
Taste @ (Klammeraffe). Im rechten Bildschirmfenster 
werden neben dem nachfolgend beschriebenen Optio- 
nen die momentan aktiven Parameter genannt, die 
nach dem Befehl Ausführen verändert werden. Um 
abzubrechen, kann jedoch auch X gedrückt werden. 


ALS PARAMETER SIND ZU VERSTEHEN: 


— Zoomfaktor, der bei einem von | abweichenden 
Wert die Grafik verkleinern oder vergrößern läßt 

— Drehungswinkel relativ zur momentanen Position 
(alpha) 

— X: relative Abweichung horizontal 

— Y: relative Abweichung vertikal zum momentan dar- 
ae Bild nach Benutzung der V-Funktion 

2.5.1) 

— ein hier ‘Korrektur‘-genannter Faktor (Taste K), 
der bei Ungleichheit von Wert 1 das Bild vertikal/ 
horizontal verzerren läßt. Anwendung: Z.B. die 
Stauchung in bestimmter Richtung für die Korrek- 
tur einer eventuellen Bildschirm-Hardcopy. 

2.8.1 Um die Grafik zu verschieben, drückt man die 

Taste V und ändert durch Betätigen der Cursortasten 

die Bildposition (Ursprung, ORIGIN) der Grafik. 

2.8.2 Das Drehen des Bildes (D-Taste) erfordert als 


Vorinformation die Koordinaten des Mittelpunktes, 
um den die Drehung erfolgen soll. Durch Betätigung 


- der Cursortasten kann der Drehmittelpunkt geändert 
“ werden und abschließend mit der ENTER-Taste quit- 


tiert werden. Der einzugebende Drehungswinkel läßt 
sich aus dem Koordinatenkreuz ungefähr abschätzen. 
2.8.3 Die Zoomfunktion (Taste Z) läßt eszu, eine 
Vektorgrafik fast beliebig zu verkleinern oder zu ver- 
größern. Der Bildmittelpunkt — in diesem Fall eigent- 
lich „„Fluchtpunkt‘ — wird analog 2.82 zuvor ver- 
einbart. 

2.8.4 Die Funktion Polygon ist ein gutes Werkzeug 
zum Zeichnen von gleichseitigen Vielecken und daher 
zum Entwurf chemischer Formelzeichnungen beson- 
ders gut geeignet. Um in den Genuß dieser Funktion 
zu kommen, muß jedoch vorher die DRAW-Funktion 
aktiviert sein (2.2). Die Kantenlänge des zu entwerfen- 
den Körpers entspricht genau der Länge der bislang 
nicht ausgeführten DRAW-Linie (2.2- 2.3). Da die 
Richtung, in der der Körper in Bezug auf die letzte 
Linie aufgebaut werden soll, noch nicht bekannt sein 
kann, ist ein etwas umständlich erscheinendes Ver- 
fahren gewählt worden, um die endgültige Lage des 
Körpers zu bestimmen: Zunächst wird das gewünsch- 
te Vieleck, ausgehend von der momentanen Grafik- 
Cursor-Position, gezeichnet. Lage und relativer Winkel 
zur tatsächlichen Position des Anwenderwunsches 
können daraufhin mit dem Programm variiert werden. 
2.9 Taste X: Verlassen des Grafikeditors (s. Haupt- 
menü). 

2.10 Die Tastenkombination CTRL und P( P) ruft 
eine Hardcopyroutine auf. um den Bildschirminhalt 
auf einen angeschlossenen Matrixdrucker zu schicken 
(s. auch Nachbemerkung). 


3. Die Hauptmenü-Ebene 

Vom Hauptmenü aus ist es möglich. sämtliche Pro- 

grammebenen zu erreichen: 

G ruft das Grafikmenü auf (mit momentan im Spei- 
cher befindlichen Bild. 

U läfit die Uhr verstellen (Cursortasten, minuten- 
weise) 

K Neue Eingabe von Uhrzeit und Datum (..Kalender- 
datum‘‘) 

N Löschen der momentanen Grafik, Rückkehr zum 
Grafikeditor 

X Programmabbruch. Die Daten sind jedoch nicht 
verloren: es ist möglich, durch GOTO (Zeilen- 
nummer wieder einzuspringen. 

D Datei (vgl. 4.) 


4. Das Dateimenü 
Sofern noch keine Datei geöffnet ist, wird versucht, 
die erste Datei (Name=DATEN.DAT) einzulesen. 
Daher ist es unbedingt erforderlich, vor der ersten 
Benutzung eine Leerdatei anzulegen: Dies geschieht 
durch Eingabe folgender Zeile im Direktmodus: 
OPENOUT “DATEN.DAT“ : PRINT #90 : 
CLOSEOUT 
Jedoch ist in der Regel dieser Vorgang (je Diskette) 
nur einmal erforderlich, sonst werden die bereits 
geschriebenen Datensätze gelöscht. 
Da, bedingt durch die Programmlänge, nur wenige 
Sätze gleichzeitig verwaltet werden können, werden 
zu Programmbeginn nur 20 reserviert (mz%=20:DIM 
s$(mz%)). Versuchsweise kann die Variable mz% 
verändert werden, jedoch mit Vorsicht und nur im 
Teststadium! 


Bitte lesen Sie weiter auf Seite 65 
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1450 "sereneunermerennaeeeneeoeeee 
1500 ’°*= ALTERNATIVER GRAFIKEDITOR* 
1550 ’* UND GRAF IKDATENBANK * 
1600 ’* VON ® 
1650 ’* THOMAS 5CHEER #® 
1700 ’* FUER * 
1750 ’# SCHNEIDER AKTIV * 
1800 ’* CPC 464 je* 
1810 seresreenenergeteeerauneeenege 
1850 

1900 ON ERROR GOTO 50900 

1950 MODE 2:G05SUB 18800:PRINT#2,"Gr 


afikeditor V 2.1":PRINT43," Thomas 
Scheer"; TAB( 3) ;"3550 Marburg”; TAB( 
3) ;CHR$( 164) ;" 19897”:LOCATE 8, 10:PR 
INT"Bitte Datum u. Uhrzeit eingeben 
":G0SUB 22700 

2000 EVERY 1000,3 GOSUB 21800 

2050 mz%=-20:DIM s$(mz%) 

2100 IF HIMEN = &E7FFF THEN 2350 
2150 DOPENOUT "D":MEMORY HIMEM-1:CLO 


SEOUT MEMORY &7FFF 

2200 

2250 LOAD "HARDCOPY"” ,EA3BA:CALL 8A 
3BA ’Bitte hier die eigene Hardcopy 


-Routine einbinden 

2300 : 

2350 a=-&8000:a2=a:POKE a,201 :i$=" 
"+CHR$( 24) +" ":bild$="" 
2400 y=200 : x=200 : yli=y 
2450 xd=x:yd=y:st=4 

2500 drf1=0:u1=-0:u2=0:aa3=-&8B000 

2550 DEG:INK 2,0,26:INK 0, 1:BORDER 
1:INK 1,24:an$=CHR$[ E18) +CHR$( 2) +CH 
A$(O) +CHR$(O) 

2600 : 

2650 

2700 

2750 vg$="":FOR j=240 TO 243:vg$=vg 
$+CHRA$L 53) : NEXT 

2800 vg$=vg$+CHR$( 224) +"T USF@XE":z 
m$( 0) =CHR$( 7) +CHRA$( 24) +"Draw”+CHR$( 
24) :zm$( 1) ="Plot” 

2850 CLS:LOCATE B, 10:PRINT"Einzules 
endes Bild eingeben oder ENTER":IF 
bild$="" THEN GOSUB 19450:INPUT #2, 
"Bild-File [EXT=.AGR] :",bild$:bild 
$=UPPER$Cbild$) :GOSUB 20000:IF INST 
Albild$,".AGA"”)<2 THEN bild$="NONAM 
E.AGR” :GOSUB 20000 

2900 GOSUB 19250 

2950 IF a=68000 THEN IF bild$<>"NON 
AME.AGR" THEN w1$=bild$:GOSUB 11050 
3000 GOSUB 5400 

3050 xd=x:yd=-y:EVERY 1000,3 GOSUB 2 
1800 

3100 POKE 3,&C9:LOCATE 1,1:PRINT CH 
R$( 23) ;CHR$( 1); :MOVE x-4,y+16:TAG:P 
RINT CHR$( 241), : TAGOFF 

3150 IF drfl THEN MOVE xd,yd:DRAW x 


| LISTING 


»Y; 1 

3200 GO5SUB 73000 

3250 IF w$=CHR$( 16) THEN | HARDCOPY 
3300 MOVE x-4,y+16:TAG:PRINT CHA$( 2 


41), :TAGOFF 

3350 LOCATE 1,1:PRINT CHR&$( 23) CHR$( 
0) ;:k%=INSTA( vg$,w$) :IF k%=-0 THEN G 
NEUB 5400 

3400 ON k% GOSUB 4900, 4950,5000,505 
0,4650, 172300, 11700, 9450, 10100, 10350 
‚5550,4B00, 3950 

3550 IF k%=1? THEN 13650 

4595 IF drfl THEN MOVE xd,yd:DRAW x 
1,y1,0:PLOT »d,yd,1 

3800 x1=x:y1=y 

3850 GOTO 3100 

390N RETURN 

3950 REM Editieren 

4000 MODE 1:xr%=REMAIN( 3) :LOCATE 2, 
25:PRINT "Editieren: DEL-Loeschen X 
=Ende"” 

4050 ORIGIN 3,64,8,456,390,64:aal=& 
BODO:WHILE w$<>"xX" 

4100 FOR i=aa1l+4 TO aal+100:IF PEEK 
(i1)=-24 AND PEEK(i+1)-2 AND PEEK(i+? 
)=0 AND PEEK(i+3)=O THEN aa?=i:diff 
=aa2-aa1:60T0O 4200 

4150 NEXT:w$="X”":GOTDO 4500 

4200 CLG 0:CALL 88000:PLOTR 0,0,2:P 
OKFE aa2,8C9:CAl.l. aa1:POKE aa2,24:PL 
DTR 0,0,1:CALL ao2:aal-aad 

4250 GOSUB 23000 

4300 WHILE w$=CHR$( 127) AND aal+tdif 
f>&68000 w$="" 

4350 aal=-aal-diff:FOR i=-aal TO a-di 
fFf:POKE i,PEEK(li+diff) :NEXT:a=a-dif 
f:POKE a,6C9 

4400 ORIGIN 3,64,8,456,390,64:CLG O 
4450 WEND 

4500 WEND 

4550 PLOT 1,1,1:605UB 18800:6G05UB 1 
9250:EVERY 1000,3 GOSUB 21800:CALL 

&EBNOD: RETURN 

A600 

4650 LOCATE #1,11,3:drfl=NOT drfl:P 
AINT#1, zm$( drf1+1) 


A7NO xd=-x:yd-y:GOEUB 5400 
4750 RETURN 

A800 RETURN 

4850 : 

4900 y=y+st:GOSUB 5250:RETURN 
4950 y=y-st:GO5UR 5250: RETURN 
SONO x-x-5t:6G05UB 5100:RETURN 
5050 x=x+st:6G05UB 5100:RETURN 
5100 IF x>453 THEN x-453 

5150 IF x<B THEN x-B 

5200 RETURN 

5250 IF y>326 THEN y=326 

5300 IF y*1 THEN y-1 

5350 RFTURN 
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5ADO GALL &BBO3:GCALL &8BD19:CLG O:PL 
0T -100,0,1:CAll. EBN19:CALL &8000 
5450 GOSUB 20000 

5500 RETURN 

5550 U1-0:U2-0:WI-0O:LAE1-1:elipse-1 
5600 po1%-0:C15#1:PAINT #1,1$" Opti 
onen "i$:PRINT#1:PRINT#1,"V : Verso 
hieben"TAB( 1) "D Drehen"TABe I)"P 
Polygon":PRINT#',"Z : Zoom 
"TABLI)"K ";elipse;TAB( 1)"A 


fuehren"”TAB( 1)"X : Abbruch" 
5650 PRINT#1:PRINT#1,"Zoom=";1lae1;T 


AB( 4) ;CHR$( 176) ;"=";wi; TAB(4) ;"X="; 
u1;TAB(4) ;"Y=-";u2 
5700 GOSUB 23000 
5750 k1%=INSTR( "VDPZAXK",w$) :IF k1% 
-D THEN 5700 
5800 ON K1% GOTO 5850,6500,6600, 750 
Nn,8000, 9350, 5801 
5501 PRINT#1,CHR$(7); "mind. 0.3 max 
2":INPUT #1,"Korrektur=",elipse:lI 
F elipse=D.3 OR elipse>2 THEN 5801 
580? GOTN 5600 
5850 ” Verschieben 
5900 CLS#3:PRINT#3, "Ursprung oender 
n":PAINT#3,"durch Kursortasten"”:PRI 
NT#3,"abschliessend:":PRINT#3,"TENT 
ER] "” 
5950 
6000 
6050 
FALL 
u2+64 
5100 IF w&-CHR$( 13) THEN CLG 0:0RAIG 
IN u1l+3,u?2+64:CALL an:QARIGIN 3,64, 
‚456,390,64:G0T0 6400 
6150 IF w$=CHR$( 240) THEN U2-U2+B:0 
ARIGIN U1+23,U2+64:GALL AA:GOTO 6000 
6200 IF w$=CHR$( 241) THEN U2=U2-8:0 
ATIGIN U1+3,U2+64:CALL AA:GOTO 6000 
6250 IF w$=CHR$( 742) THEN UI-U1-B:0 
RIGIN U1+3,U2+64:CALl. AA:GOTO 6000 
6300 IF w$=CHR$( 243) THEN UI-U1+B8:0 
AIGIN 1)1+7,U2+64:CALL AA:GOTO 6000 
6350 GOTO 6000 
640 FOKE aoa,&6C9:CALL 5B8000:FPOKE aa 
‚21 
6450 
6500 
KEL 
6550 


aus 


ul-0:u2-O 

PLOT -100,1,1:G0SUB 23000 
ORIGIN 3,64:POKE ao,201:CL6G OD: 
#EBO0OND:POKE aa,&21:0RIGIN ul+g, 


GOTO 5600 

GOSUB 7650:CL5#3: INPUT #3, "WIN 
"WI 

GOTO 6450 

6600 REM Polygon 
6650 ja-0: loe-5QAl ( x-xd) *lx-xd) +ly- 
yd)*(y-yd)):IF drfl#lae=0 THEN CLS# 
1:PRINT#1,"um ein Vieleck zu zeic 
hen muss die DRAW-UOption 

aktiv sein":CALL &BB06:G0T0 5600 
6700 xr1=-x:xr?=xd:yri=-y:yr2=yd 
5750 alI=manıxxd:xdex1:yl-y:yryd:yd-y 
1:CL5#3:PRINT#3,i$"” 3....9 eck?"i$ 


6500 pol%=VAL( INKEY$)::IF pol%<3 THE 

N 6500 

6850 IF xd-x=0O THEN wO=90 ELSE wO=A 
TNECy- yd) /Cx-xd)) 

6900 loe-5QRllx-xd)*#lx- Rd) +ly-yd) 

y-yd)) 

5950 GOSUB 5400:CL5#3 

700G fla%-0:FOR wink1-1 TO pol%:x1- 

x:x=xd:xd=x1:yl=y:y=-yd:yd=y1 

7050 xd=x+lae#5SIN( 270-wO-wink1#( (36 

0/po1%))) 

7100 yd=y+lae#GO5S( 270-wO-wink1#( (36 

0/pol%))) 

7125 IF xd<D OR yd<O THEN fF1lo%--1 

7150 IF ja AND fla%=D0 THEN GOSUB 11 

200 ELSE PLOT xd,yd,1:DRAW x,y 

7200 NEXT :IF fla% THEN CLSA1: PRINT 

#1,"Nur innerhalb"TAB( 1) "Graphikscr 

een!"TAB( 1) "Aenderungen= "J’"TAB( 1)" 

bzw. Abbruch: ’X’"CHR$( 10) :G 

0TO 7275 

7210 IF ja THEN 8000 

7250 CLS#1I 

7275 PRINT#1,USING "Kantenlaenge=f#f# 

# Winkel =#4#4” ; lae; wO: PRINT 

#1:PRINT#1,"Relative Lage"TAB( 1) "ae 

ndern J/N/X"” 

7300 GOSUB 23000 

7350 IF w$="X"” THEN PLOT 0,0,1:CL6 

O:CALL £8000:6G0T0 5600 

7400 IF w$="J" THEN PRINT#1:INPUT#1 
‚„"x-Diff ",xdi:INPUT#1,"y-Diff ",yd 
i:INPUT #41,"Winkeldiff: ",‚widi:x=x+ 

xdi:xd=-xd+txdi:y=-ytydi:yd=yd 

+ydi:wO=wO+widi: INPUT #1,"Loengendi 
ff: ";11%:lae=lae+11%:G0OTO 6950 

7A50 ja=-1:6G0TO 7000 

7500 ’ zoom 

7550 GOSUB 7650:CL5S#43:PRINT#3, "Zoom 

faktor":INPUT#3,"0.2 - 4 :",lael:IF 
lae1=D.2 OR 1381-4 AND lael°>D THE 

N 7550 ELSE IF lae1=-0 THEN 

laeil=1 

7600 CLS5#3:G60T0 6450 

7650 PRINT#3,"Mittelpunkt”TAB( 1) "du 

rch Kursortosten"TAB( 1) "aendern/ENT 

ER" 

7700 w$="":WHILE w$<>CHR$C 13) 

7850 LOCATE 1,1:PRINT CHA&$( 23) CHRA$E 
1) :G05UB 300N0:w$-INKEY$:GOSUB 3000 

0 


7855 IF w$-CHRA$( 240) THEN y-y+B ELS 
E IF w$-CHA$(?A1) THEN y-y-B 

7860 IF w$=-CHR$( 242) THEN x=x-B ELSE 
E IF w$=-CHRA$( 243) THEN #x-x+B 

7300 WEND:FRINT CHRA&([ 73) CHA$(0) :605 
uUB 30000 


7950 RETURN 
8000 pol%-0:CL65#3:PRINT#3,i1$"WAR 
TE N"i$ 


60 


LISTING 


R0O5DO IF ul-D AND u2-0 AND wi/360=CI 
NT(wi/360) AND loe1=1 AND elipse -1 
THEN 93400 : 
A100 
5150 
AZUNO 
8250 
8300 
8350 


8400 
8450 
5 


x1=xtul:yl-ytuz 
FOR iraoa+1 TO a-7 
IF FEEKli-1)=+671 
IF FEEK(i+?)*<=GES THEN 9300 

IF PEEKli+3)*=57?1 THEN 9300 
pO1=PEEK(i) +256*PEEK(i+]1) 
p0Ü2=PEEK( i+4) +256*PEEK( i+5) 

IF pDO1>G7FFF THEN p01=p01-6553 


THEN 92300 


8500 
5 
8550 lae=5SQR(l(x-pD1)*#[x-pD1)+(y-pO2 
)*(y-p0?2))*lael 

8600 IF x-pO1I-D THEN wil-90 ELBE wi 
1=ATNCABSC ( P02-y) /(p01-x))) 

8650 IF p02<-y THEN IF pO1<=-x THEN 
wi1l--wi1:G0TO 8850 

8700 IF pO2<=y THEN wi1=wi1+180:GOT 
0 8850 

8750 IF pO1=x THEN IF pDO1>x THEN wi 
1=180-wi1:G0OTO 8850 

BBOOD : 

8550 pDO1-CINT(lae*elipse*#5IN( wil+wi 
-90) +x1) 

58900 pD2-CINT(loe/elipse*TO06( wil+twi 
-90) +y1) 

8950 IF pD1I<O THEN p01=-65535+p0O1 
9000 IF p0?<O THEN p0?-65535+p0? 
9050 POKE i,p01-256*( INT(p01/256)) 
9100 POKE i+1,INT(p01/256) 

9150 POKE i+4,p02-256*( INT( p02/256) 
) 
9200 
9250 
9300 
9350 


IF pO2>G7FFF THEN p02-pD02-6553 


POKE 
j=-i+B 
NEXT 
lae1=1:wi=-0:u1=-0:u2=0 


i+5, INT( p02/256) 


9400 GOSUB 18800:6056UB 19250:CALL & 
AO0O: RETURN 

9450 : 

9500 REM l.oesche letzten Befehl 
9550 : 

9600 IF flag% THEN IF HEX$( a) <=HEX$ 


(asa+4) THEN a1-0: RETURN 

9650 IF a1>0O THEN 10050 

9700 FOR j=a TO a-100 STEP -1:IF HE 
X$( 1) <=-"8004" THEN 10050 

9750 IF PEEK( J)<>O THEN 10000 

9800 IF PEEK( j-1)<>O THEN 10000 
9850 IF PEEK( }-?)<>2 THEN 10000 
9900 IF PEEK( J-3) <>24 THEN 10000 
9950 a=j-3:POKE a,201:31=0:G0SUB 54 
ON:RETURN 

10000 NEXT:GOSUB 5400 :RETURN 

10050 a=a-a1:POKE a,201:G0SUB 5400: 
a1=0:RETURN 

10100 : 


10150 REM STEP veraendern 


10200 st=st*2:IF st>16 THEN st=1 
10750 GO5EUR 19250:RETURN 

10300 : 

10350 : 

10400 REM File 

10450 aa=-&8000:605UB 19450 

10500 v%=VPOS( #1) :PRINT#1,"5)ave 


l.)oad":FRINT#1,"A)ppend 
NT#1,"N)eu” 

10550 GOSUB 23000: IF INSTRAÜL"SLAXN", 
w$)=0 THEN 10550 

10600 FOR v1%=v% TO v%+3:LOCATE #1, 
1,v1%:PRINT #1,SPACE$( 20) :NEXT:LOCA 
IE #1,1,v%:IF w$="X" THEN CLG 0:605 
UB 19250:CAlLlL &8000:RETURN 

10650 IF w$="5" THEN 13200 

10700 IF w$="N” THEN POKE 68000,6C9 
:CLG 0:3=88000::aa=a:al=-0:bild$="":w 
$-"X":GOSUB 20000:G0T0 10600 

10750 INPUT#1,"File ",w1$ 

10800 IF w1$="" THEN 11150 

10850 IF INSTR( UPPER$(w1$),"”.AGR") = 
O0 THEN 11150 


eXit":PRI 


16900 

10950 IF w$="A" THEN flag%=-1:G0T0O 
11050 

11000 IF w$="L"” THEN fFlag%=0 


11050 IF flag% THEN aa=a ELSE aa=&B8B 
000 
11109 bild$=UPPER$(wI1$) :LOAD w1$,aa 


:a=aa+PEEK( aa+?) +256*#PEEK( aa+3) -1 
11150 al-0:CLG D:CALIL 8&8000:6G05UB 2 
0000:G0OS5SUB 19250 : RETURN 

11200 
11250 
d DRAW 
11300 a$=an$: IF xlast=xd THEN IF yl 
ast=yd THEN IF drfl THEN 11550 
11350 IF drfl=D0 THEN PLOT xd,yd,1 
11400 oa$=-oa$+CHR$( 521) +CHA$exd MOD 2 
56) +CHRA$( INT( xd/256)) 

11450 a$=a$+CHR$( EE5) +CHRA$( E21) +CHA 
$( yd MOD 256) +CHA$( INT( yd/256)) 
11500 a$=-a$+CHR$( ED1) +CHA$( ECD) +CGHA 
$LEEA) +CHR$(EBB) 

11550 IF drf1l=-0 THEN 11900 

11600 

11650 a$=a$+CHR$( E21) +CHRA$(x MOD 25 
6) 

11700 8$=a$+CHR$( INT( x/256)) +CHR$(E 
ES) +CHR$( 621) 

11750 a$=a$+CHRA$( VAL( "&"+MID$LHEX$( 
y,4),3,2))) 

11800 a$=3a$+CHR$( VAL( "&"+MID$L HEXSL 
11850 a$=a$+CHA$( ECD) +CHR$( EF6) +CHR 
$( &BB) 

11900 ylast=y:xlast=x:IF pol%=0O THE 
N xd=x:yd=y 

11950 GOSUB 12050:RETURN 


REM Compile fuer PLOT un 


LISTING 


12000 : 
12050 REM 
12100 : 
12150 ali-LEN(a$): FOR i=1 TO 81:POK 
E 3-1+1,ASC(CMID$(o$,i,1)) :NEXT 
12200 IF drf1l=0 THEN f=-fc1:fc1=fc2: 
fc2=f 
12250 a2=a:a=atal:PLOT -100,-100,1: 
POKE a,6C9:G6G0SUB 5400:RETURN 
12300 : 
12350 REM 
12400 : 
12450 drfl=-1:605UB 4650:x=x-4:MOVE 
x-3,y+B:DRAWR 0,-20,1:MOVER 1,0:DR 
AWR 0,20 
12500 tx$="":MOVE x,y+4:TAG:WHILE w 
$<>CHR$( 13) 


COMPILIEREN 


COMPILE TAG-Befehl 


12550 w$=INKEY$:IF w$="" THEN 12550 
12600 IF w$=CHR$( 13) OR LEN(tXx$) >60 
THEN 12650 

12610 IF w$<”" " OR w$>"}" THEN 1255 
0 

12620 tx$=tx$+w$:PRINT w$; 

12630 WEND 

12650 TAGOFF :a$=an$+CHR$( E21) +CHRA$( 
x MOD 256) +CHR$( INT( x/256)) 

12700 a$=a$+CHRA$( GES) +CHA$( E21) +CHR 


$l(y+4) MOD 256) +CHR$(INT((y+4) /256 
)) 

12750 a$=a$+CHA$( 8ED1) +CHA$LECD) +CHR 
$LECO) +CHR$C EBB) 

12A00 a$-a$+CHRA$LE3E) +CHA$( 128) +CHR 
$LECD) +CHR$C E63) +CHR$( EBB) 

12840 FOR 11%-1 TO LEN(tx$):IF LEN( 
a$)>242 THEN 12900 

12850 x=x+B:a$=a$+CHR$L E21) +CHA$L AS 
C(MID$CtXx$,11%))) +CHA$CO) +CHR$(E7D) 
+CHA$LECD) +CHA$( E5A) +CHR$(EBB) : NEXT 
12900 a$=a$+CHRA$L E3E) +CHA$LO) +CHR$C 
ECD) +CHA$L E63) +CHRA$( EBB) 


12950 GOSUB 12050:x=x+6:RETURN 
13000 : 

13150 : 

13200 ° Bild speichern 

13250 : 

13300 L=a+1+SGN( a) #88000:POKE &8002 


‚(L MOD 256) :POKE &8003,( INT(L/256) 
) 

13350 IF L<8B THEN CLS#1:PRINT#1,"”ke 
ine Graphik"TAB( 1) "im Speicher" :CAL 
L &E8B06:w$="X":GOTDO 10600 

13390 IF INSTR( UPPER$(bild$) ,”.AGR" 
) THEN PRINT#1,"ENTER=";bild$ 

13400 PRINT #1,"[X]=Abbruch"” : INPUT# 
1,"File:",name$ 

13450 name$=UPPER$( name$) :IF name$= 
"X" THEN w$="X":G0OTO 10600 

13500 IF name$="" THEN name$=UPPER$ 
(bild$) 

13550 IF INSTRA(UPPER$( name$) ,”.AGR” 


)=-0 THEN 13350 

13600 SAVE name$,b,&8000,L 
GOTO 10600 

13650 ” 

13651 REM Quit / Datei / Menues 
13652 : 

13675 GOSUB 18800:L0OCATE 18,8:PRINT 
"GRAFIK & DATEN"CHR$( 10) CHA$( 10) TAB 
( 18) IS"HAUPTMENUE"I$ 


:w$="X": 


13700 GOSUB 21800 

13750 CLS#1:PRINT#1,STAING$(S, 10) 
13800 PRINT£fI 

13850 PRINT£#1,”X eXit / Quit 
13900 PRINT#1,"D : Datei 

13950 PRINT#1,"G : Grafikmenue 
14000 PRINT#1,”U : Uhr 

14025 PRINT#1,"K : Kalenderdatum 
14050 PRINT#1,"N : Neu 

14100 GOSUB 23000 

14150 K%=INSTR( "XDGNKU” ,w$) 

14200 CLS:ON k% GOTO 14250, 14500, 14 


350, 14400, 14210, 14220 

14210 GOSUB 22700:G0TO 14100 

14220 LOCATE 10,8:PRINT "Zeit:"CHR$ 
( 242) CHA$( 243) :LOCATE 10, 10:PRINT"[L 
ENTER] "”":WHILE w$<>CHR$( 13) :GOSUB 23 
000: start=start-18000*#INKEY 

( 1) +18000#INKEY( 8) :GOSUB 21800 :WEND 
:GOTO 13650 

14250 GOSUB 22900:MODE 2:PRINT"PROG 
RAMMENDE .” :PRINT:PRINT"RUECKKEHR IN 
HAUFTMENUE DURCH ’GOTO ";:LIST 136 
50 :END 

14350 GOSUB 19250:605UB 5400:G60T0 3 
050 

14400 IF 1f1%=-1 THEN GOSUB 18650:1 
f1%-0:G0T0 14400 ELSE INPUT #1,"5ic 
her J/N ",‚w$8:CL5#1:IF UPPER$ÜLEFTE( 
w$+" ",1))="J" THEN a=68000 
:al-D:aa-a:bild$-*"":605UB 19250:;:CL56 
:G0T0O 3050 

14450 GOTO 13650 

14500 REM Datei 

14550 CLS:LOCATE 10, 10:PRINT"DATEI- 
EBENE"”:IF 1f1%=0 THEN datei$="DATEN 
.DAT":506UB 18500: 1f1%--1 

14600 CLS#1:PRINT#1,i1$"Datei-Menue" 
i$:PRINTAI 

14650 GOSUB 20000: IF datei-0O THEN d 
atei=-da% 


14750 PRINT#1,"”"M:Menue 

14800 PRINT#1,"N:neuer Satz 

14850 PRINT#1,"5:56uche 

14900 PRINT#1,”X:Quit/eXit 

14950 GOSUB 23000 

15000 kd%-INETRA( "MNSEX" ,w$) :IF kd%-0 
THEN 14950 

15050 CLS:CALL 58000:0N kd% GOSUB 1 


5250, 15300, 16350, 15700 
15100 IF kd%=1 OR kd%=4 THEN 13650 
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LISTING 


15150 G0TO 14500 

15200 GDSUB 22900: RETURN 

15250 RETURN 

15300 REM neuer 56atz 

15350 GLE#1:IF datz%-mz% THEN PRINT 
#3,"Warten" SE G0TD 15550 

15400 GOSUB 22900 

15450 datei-1E+11:505UB 21750 

15500 GOTO 15350 

15550 CLS#1:datz%=datz%+1:a$=bild$: 


GOSUB 19600: s$LdatzX) - =SPACE$( 255) :M 
1D$( s$( datz%), )=a$ 


15600 PRINT#3, ide > =ENTER, ” :PRINT 

#3,"Nome 7-Catolog”:LINE INPUT #3,0 
$ 

15650 IF a$="" THEN a$-bild$ 

15700 GOSUB 19600 

15750 bild$=UPPER$( a$) 

15800 IF INSTR(bild$,".AGR”")<2 OR A 

E5G(bild$) «48 THEN 15600 

15850 datei$=LOWER$( datei$) :GOSUB 2 

0000 

15900 CLG 0:CALIl 68000 

15950 IF bild$=LEFT$( s$( datz%) , 12) 
THEN 16050 

16000 LOAD bild$,88B000:o-&BDO0+PEEK 
( 68002) +256*PEEK( 88003) -1:MID$( s$( d 
atz%) ,1,12)-bild$ 

16050 CLG 0:PLOT 0,0,1:CALL &B000 
16100 idat=-datz%:MID$( s$lidat), 13,2 
0)-"Datum "+datum$:MID$( s$(l idat) ‚33 
‚20)-"Zeit "+zeit$:605UB 20400 
16150 datei$=LOWER$( datei) 

16200 IF datz%<mz% THEN RETURN 
16250 IF UPPER$( datei$) -"DATEN:DAT" 
THEN d$="DATEN2.DAT"” ELSE d$="DATE 
N"+MID$( STA$( 1+VAL( MID$( datei$,6))) 
‚2)+".DAT” 

16300 OPENOUT d$:PRINT#9,0:CLOSEOUT 
:G05UB 18650: datei$=d$:505UB 18500: 

GOSUB 20000: RETURN 

16350 REM Suche 

156400 GOSUB 20000: datanf-1:datend-1 
E+11:CL5#1:INPUT#1,"5Buchcode ",code 

$:code$=UPPER$( code$) 

16410 CALL &BB03:PRINT#3,1$"Dateibe 

reich"i$; TAB( 1) ; "LENTER] -Datei" ;do% 
; TAB( 1) ;"LSPACE] =Gesamt”; TAB( 1) ;"[ 2 
‚3..]-ab..":GOSUB 23000 

16420 IF w$=CHRA$( 13) THEN datanf-da 

%:datend=da% 

16430 IF VAL(w$+"” ”)>1 THEN datanf- 


VAL(w$) 

16450 CLS:CALL &8000:FOR datei=data 
nf TO datend 

16500 GOSUB 21250 

16550 FOR idat=1 TO datzX% 

16600 IF INSTA(UPPER$( s$(idot)),cod 
e$)=0 THEN 18300 

16650 IF INSTA(s$( idat) ,"*GELOESCHT 


‚18550 INPUT #9,s$(idat): 


#") THEN CI.S:LOCATE 8, 10:PRINT"Dies 
er Satz kann durch [E]) editiert wer 
den!";TAB(8)"”[ Taste ]”:CAL 

I &BB06:G0T0O 16800 

16700 IF UPPER$(LEFT$(s$(idat), 12)) 
=UPPER$(bild$) THEN 16800 

16750 a$=UPPER$(LLEFT$(s$lidat) ,,12)) 
:GDOEUB 19600:bi1d$-o$: LOAD bild$,6B 
000:3=&8000 +PEEK({ E8002) +256*PEEK( &8 
003) -1 

16800 CLG 0:CL56#1:CALL 68000: PRINT# 
1,MID$L s$l idat),, 13) :GOSUB 20000 
16850 PRINT#3, "Edit/"P/eXit":PRINTÄ 
3,"Loeschen":PRINT#3,LEFT$Üvg$,4) 
16900 GOSUR 23000:C1L5#3 

16950 IF w$="E" THEN datei$=LOWER$( 
datei$) :G05UB 20400: INPUT#3, "Bild: " 
‚a$:G05UB 19600:MID$( s$l idat) , 1,12) 
=a$ 

17000 IF w$=CHR$( 240) THEN datei=MA 
X datei-1,1) :G60SUB 22900:G60T0 16500 
17050 IF w$=CHRA$( 241) THEN idat=dat 
z% 

17100 IF w$=CHR$( 242) THEN idat=MAX 
(0,idat-2) 

17150 IF w$="L" THEN PRINT#3,"Loesc 
hen Sicher ?"”:WHILE INSTRA( "”JN”,w$) >= 
0:605UB 23000:WEND: IF w$="J)" THEN d 
atei$=LOWER$( datei$) :MID$( 5 
$lidat) ‚53, 11) ="*GELOESCHT#" 
6800 

17200 IF w$=CHR$( 16) THEN | HARDCOPY 
17250 IF w$="X” THEN GOSUB 22950:RE 
TURN 

18300 NEXT idat 

18310 IF datz%<mz% THEN GOSUB 22900 
: RETURN 

18350 GOSUB 22900:NEXT datei :RETURN 
18500 CLS#3-PRINT#3, "Warten"; :OPENI 
N datei$: INPUT#9,datzX: PAINT#3, datz 
%; TAB( 1) ;"Saetze werden"; TAB( 1);"ei 
ngelesen"”:FOR idat=1 TO dat 

z% 


:GOTO 1 


IF LEN( s$( 
idat))<>255 THEN 18550 

15600 NEXT:idot-0:CLOSEIN:GOTO 1875 
8) 

18650 CLS#3:PRINT#3,"Warten: ";datz 
%; TAB( 1) ;"Saetze werden"; TAB( 1); "ge 
speichert"::OPENOUT datei$:PRINT#9, 
datz%:FOR idat=1 TO datz% 

185700 WRITE #9,s$lidat) :NEXT:idot-D 
:CLOGEOUT 

18750 datei$=UPPER$( datei$) :CLS#3:G 
OS5UB 20000: RETURN 

18800 REM initialisierung 

18850 MODE 2:0RIGIN 0,0:PLOT 1,1,1: 
DRAW 639,1:DRAW 639,399:DRAW 1,399 

18900 DRAW 1,1:MOVE 465,399:DRAW 46 
5,1:MOVE 1,62:DRAW 465,62 
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Unser Auftrag: Die Schöpfung 
Gottes zu bebauen und zu bewahren. 
Längst sind wir Menschen selbst 

die Bedrohung. Hautnah spüren das 
Millionen Familien in Afrika, Asien 
und Lateinamerika. Ihre Lebens- 
grundlagen werden systematisch 
vernichtet: Tropische Wälder werden 
abgeholzt oder abgebrannt, Acker 

in großflächige Export-Monokulturen 
»umgewandelt«, Fischgründe durch 
Insektizide vergiftet oder durch 
moderne Fangflotten der Industrie- 
länder geplündert. 

Partner von »Brot für die Welt« 
versuchen auf vielfältige Weise 

die Ursachen von Not, auch im Blick 
auf die gestörte Umwelt, zu erkennen 
und zu beheben. 

Sie brauchen unsere Hilfe! 

Postfach 476, 7000 Stuttgart 1 


‚Brot 


für dieWelt Postgiro Köln 500 500-500 
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LISTING 


18950 ORIGIN 3,64,8,456,390,64:CLG 
) 

19000 WINDOW 2,58,2,21:CLS 

19050 WINDOW #1,60,79,2,24:C6L5#1 
19100 WINDOW #3,60,79,18,24:WINDOW 
#4,39,57,23,?4:PEN#4,0:PAPER #4,1:C 
LS5#4 

19150 GOSUB 21800 


19200 WINDOW #2,3,38,23,24:CL5#2:RE 
TURN 

19250 ’Menuei 

19300 CLS#1:PRINT#1,1$;"” Graphikmen 
ue ";i$:PRINT#1:PRINT#1,i$; "COPY "i 
$":",zm$(drf1+1) :PRINT#1,i$"5PACE"i 
$":ausfuehr."”":PRINT#1,i$” 


a 


P "i$":Hardcopy":PRINT#1:PRINT#1,i 
$" E "i$":Edit":PRINT#1,1$" F " 
i$":File”:PRINT#1,1$" @ "i$":Opti 


onen" 

19350 PRINT#1,1$" U "i$":Loeschen 
":PRINT#1,1$"” T "i$":Text”":PRINT# 
1,1$" 6 "i$":5tep=( ";MID$(STA$( st 
),2);")":PRINT#1,i1$" X "i 

$”" :Menue"CHRA$( 10) ;"Andere Tasten:"T 
AB( 1) "Bild erneuern 

19400 RETURN 

19450 CLS#1:WINDOW #1,62,76,2,24:WI 
NDOW EWAF 1:w$=-"#.AGR":| DIA, e@w$& 
19500 V%-VPOS( #0) :IF V%<22 THEN PRI 
NT STRING$( 27-V%, 10) 

19550 WINDOW EWAF 1:WINDOW #1,60,79 
‚2,24:FOR VIX-V%-B TO V%:LOCGATE #1, 
1,V1%:PAINT #1,SPACE$( 18) :NEXT:LOCA 
TE #1,1,V%-8: :AETURAN 

19600 IF LEFT$(o$+" "”,1)-"7" THEN G 
OSUB 19450:INPUT#3,"Bild:"”,a$ 

19650 o$-UPPER$( a$+".AGR"”) :WHILE LE 
FT$La$,1)-" ":a$-MID$lc0$,2) :WEND 
19700 fF%=MIN( 8, INSTA(a$,".AGRA"”)-1) 
19750 IF f%=DO THEN IF bild$<>"" THE 
N o$-bild$:6GDTO 19600 

19800 IF f%=0 THEN IF LEFT$Ca$, 1) =" 
7" THEN GOSUB 19450; INPUT #1,"Bildf 
ile ",a$:G0OTO 19600 

19850 IF f%=D THEN 3$="?":G60T0O 1980 
0 

19900 a$-MID$(a$, 1,7%) +5PAGE$( B-F%) 
+”".AGR” 


19950 IF AS6C(a$) +45 THEN GOSUB 1945 


0:INPUT #1,0$:6G0T0 19600 ELSE RETUR 
N 

20000 da%=-0:da1%=-INSTA( UPPER$( datei 
$),".DAT"):IF da1i%<6 THEN 20100 
20050 da%=MAX( 1,VAL(MID$( datei$,6,d 
a1%-6))) 

20100 CLS#2:PRINT#2,"Bild 
00;"Bytes (";bild$;”)"” 
20150 IF datei$<-UPPER$(datei$) THE 
N cl$=CHA$( 24) ELSE c1$-"" 

20200 IF da1i%<6 THEN RETURN 


:";o-6B0 
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20250 PRINT#2,c1$;"Datei :";da%;c1$ 


’ 

20300 IF idat THEN PRINT#2,USING " 
Satz ## von HA/#H#” ;idat,;datz%;mz 

% 

20350 RETURN 

20400 CLS5#1:PRINT#1,MID$( s$(lidat), 1 

3) :p1%=41:PRINT#3,i$"Edit Satz";ida 

t;i$;CHR$( 10) ;TAB( 2) ;"Ende= "X" :w$= 

""ZWHILE w$<>CHA$( 24) 

20450 IF p1%<1 THEN p1%=1 ELSE IF p 

1%>240 THEN p1%=240 

20500 p1x%=p1% MOD 20 

20550 p1iy%=1+INT(p1%/20) :IF p1x%-0 

THEN p1y%=p1y%-1:p1x%=20 

20600 LOCATE #1,p1x%,p1y%:PRINT#1,C 

HA$( 24) ;MID$( s$( idat) ‚p1%+12,1) ;CHA 

$( 24) ; :w$=INKEY$ 

20650 LOCATE #1,p1x%,p1y%:PRINT#1,M 

ID$( s$l idat) ‚p1%+12,1);:IF w$=-"" TH 

EN 20600 

20700 IF w$=CHR$( 24) THEN 21100 

20750 IF w$=CHR$( 13) THEN p1%=p1%+1 

:WHILE p1% MOD 20 <> 1:p1%=p1%+1:WE 

ND:IF p1%>240 THEN p1%=240 

20800 IF ASC(w$) <32 OR INSTRL";A\,# 

@| ‚,"+CHR$( 34) ‚,w$) THEN 21100 

20850 IF w$=CHR$( 242) THEN p1%=p1%- 

1:G0TO 20450 

20900 IF w$=CHR$( 240) THEN p1%=p1%- 

20:G0T0 20450 

20950 IF w$=-CHA$( 243) THEN p1%=p1%+ 

1:60T0 20450 

21000 IF w$=CHRA$( 241) THEN p1%=p1%+ 

20:G0T0 20450 

21050 IF ASC(w$) <127 THEN MID$(s$(i 

dat) ‚p1%+12,1)=w$:PRINT#1,CHR$(8) ;w 

$;:p1%=p1%+1:IF p1%>240 THEN p1%=24 

0 


21100 
21150 
21200 
21250 


WEND:CL5#1: RETURN 
"Datenwechsel 

GOSUB 20000 

21300 IF datei-da% THEN RETURN 
21310 datei=MAX( 1,datei) :IF datei<d 
a% THEN GOSUB 22900: datei$="DATEN"”+ 
MID$( STA$( datei) ‚„‚2-(DATEI-1))+".DAT 
":GOTO 18500 

21320 IF datei>da% THEN IF datz%<mz 
% THEN PRINT#3,"Dateiende.."”:RETURN 
21350 WHILE da%<datei:da%=da%+1: dat 
ei$=-"DATEN"+MID$(STA$( da%) ‚,2) +".DAT 


21400 OPENIN datei$:INPUT#9,datz%:C 
LOSEIN: IF datz%<mz% THEN 21500 
21450 WEND 

21500 GOTO 18500 

21800 minute>=( TIME-start) /18000+anf 
minu+60*#anfhour 

21850 stunden-=-CINT(minute/60) :minut 


LISTING 


e=-CINT(minute MOD 60) 

21900 IF minute>=30 THEN stunden=st 

unden-1 

21950 IF stunden“-23 THEN 22300 ELS 

E stunden-24-stunden 

22000 day-VAL(MID$( datum$, 1,2))+1:m 

onth-VAL{ MID$( datum$,4,2)) :year-VAL 

(MID$( dotum$,7,2)) 

22050 IF day<=2B THEN 22300 

22100 month-MIN( month, 12) :month=MAX 

(month, 1) 

22150 ON month GOSUB 22400, 22500, 22 

400, 22600, 22400, 22600, 22400, 22400, 2 

2600, 22400, 22600, 22400 

22200 IF month>12 THEN month=12-mon 

th:year=-yeart] 

22250 datum$-RIGHT$( "00"+MID$( STRAF( 

day) ,2) ,2) +"/"+RIGHT$( "00”"+MID$CSTA 

$(month) ‚2) ,2) +" /"+RIGHT$( "0O"+MID$( 

STA$( year) ,2),?2) 

22300 LOCATE #4,2,1:PRINT#4,datum$; 

TAB(2); j 

22350 zeit$-AIGHT$( "00"+MID$(STR$( ss 

tunden) ‚,2) ,2) +" :"+RIGHT$( "00”+MID$( 

5TA$(minute) ,2) ,2) :PRINT#4, "Uhrzeit 
"-zeit$:RETURAN 

22400 IF day>31 THEN day=1:month=mo 

nth+1 

22450 RETURN 

22500 feb=ABS( (year/4)=INT(year/4)) 
:IF day>28+feb THEN day=1:month=3 


22550 RETUAN 

22600 IF day>30 THEN day=1:month=mo 
nth+1 

22650 RETURN 

22700 xr%=REMAIN( 3) :CLS#4:PRINTAA,"” 
Datum TT:MM:JJ":LOGATE #4,7,1:LINE 


INPUT#4,datum$:IF LEN(datum$) <>B TH 

EN 22700 

22750 LOCATE #4,1,2:PRINTf4, "Zeit 
HH:MM":LOCATE #4,7,2: LINE INPUT #4 
‚zeit$:IF LEN(zeit$)<>5 THEN CLSA#4: 
PRINT#4, "Datum ";datum$:GOT 

D 22750 

22800 anfhour=VAL(MID$( zeit$,1,2)): 
anfminu=VAL(MID$( zeit$,4,2)):IF anf 
hour>23 OR anfminu >59 OR anfhour<O 
OR anfminu<O THEN PRINT#A, 

CHR$( 7) ;:G0OTO 22750 

22850 start=TIME:CLS#4:EVERY 1000,3 
GOSUB 21800:G60T0 21800 

22900 IF datei$<>UPPER$( datei$) THE 
N GOSUB 18650 

22950 RETURN 

23000 w$=UPPER$( INKEY$) :IF w$="" 
EN 23000 

23050 RETURN 

30000 MOVE X-100,Y:DRAWR 200,0:MOVE 
A -100, 100:DRAWR 0,-200:TAG:MOVER - 
24,0:PRINT"” 270”; :MOVER -B,200:PRIN 


TH 


T”"90”; :MOVER -118,-100:PRIN 

T"0”";:MOVER 205,0:PRINT”180"; :TAGOF 
F:RETURN 

50000 ° *# ERROR-Behandlung #*# 

50010 IF ERL=-3250 OR ERAL=17200 THEN 
PRINT43,"COPY: z.Zt."TAB( 1) "nicht 
moeglich.” 

50020 IF ERL=19450 THEN PRINTA3,"Ca 
talog:z.Zt."TAB( 1)"nicht moeglich.” 
51000 RESUME NEXT 
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Ist eine Datei voll, so erledigt das Programm das Si- 
chern eventuell geänderter Daten und das Anlegen 
einer neuen Datei automatisch. Auf diese Weise kön- 
nen theoretisch fast unbeschränkt viele (je nach Platz 
auf der Diskette) Sätze angelegt werden. 

X Abbruch, Rückkehr zum Hauptmenü. 

N Neueingabe eines Datensatzes: Nach automatischem 
Suchen der höchsten Dateinummer wird diese, sofern 
nicht bereits geöffnet, eingelesen und ein Satz ange- 
fügt. Zunächst gibt man die Bildbezeichnung ein (bei 
Eingabe von ‘“?““ wird ein Catalog ausgegeben). Wich- 
tig ist, daß diese Datei (EXT=.AGR!) auf der Disket- 
te vorhanden ist! 

Hierauf wird ein Texteditor aufgerufen, um den 
Text einzugeben. Einige Zeichen, wie z.B. ‘““,‘“ und 
Gänsefüßchen (CHRS$(34)), werden nicht akzeptiert, 
Steuerzeichen ebenso nicht. Die ENTER-Taste bringt 
den Cursor in die nächste Zeile, die Cursor- oder 
Pfeiltasten bewegen den Zeiger auf die gewünschte 
Position. Zum Abschluß der Texteingabe ist CTRL 

X zu drücken. 

S Suche. Nach Eingabe des Suchcodes kann noch ge- 
wählt werden, ob sämtliche Datei-Blöcke (Dateinum- 
mern ab I), — SPACE-Taste, nur die momentan im 
Speicher befindliche — ENTER-Taste, oder ab einem 
bestimmten Datenblock gesucht werden soll (ent- 
sprechende Zahl drücken). Wurde ein Satz gefunden, 
so kann man entweder 

— Löschen L, 

— Zurückblättern (Pfeil links), 

— Zum n. Datenblock springen (Pfeil unten), 

— Die Suche abbrechen X 

— Editieren E oder 

— Den Bildschirminhalt ausdrucken P. 

Jede andere Taste setzt die Suche fort. 

„Blättern“ ist im Dateimenü nicht vorgesehen, kann je- 
doch durch Übergehen der Frage nach dem Suchcode 
simuliert werden. Um gelöschte Sätze zu überschrei- 
ben, gibt man “*GELÖSCHT*“ als Suchcode ein 
und drückt anschließend Taste E zum Editieren. 

X Rückkehr zum Hauptmenü. 


5. Nachbemerkung 

Bei Verwendung der Textfunktion (2.5) kann ein 
durch Dreh- oder Zoom-Optionen verändertes Bild 
von dem erwarteten Ergebnis abweichen. Daher ist es 
empfehlenswert, vor der Anwendung dieser Funktio- 
nen das Bild abzuspeichern (File-Menü). 

Die Hardcopy-Routine sollte ab Adresse &A300 lauf- 
fähig sein. Niedrigere Adressen könnten mit dem 
Speicherplatz für die Bilddateien kollidieren. Die 
Programmzeile 2250 und der Befehl HARDCOPY 
sind entsprechend zu verändern (bzw. durch REM- 
Statements zu ersetzen). 
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SUBSKRIPTION 


SCHON BESTELLT? 
FUTTER FÜR IHREN CPC 
DIE BESTEN 
ANWENDER- 
PROGRAMME 
DIE 
SCHÖNSTEN SPIELE 
FÜR 
SCHNEIDER CPC 
464/664/6128 
IM GROSSEN 
SOFTWARE- 
SAMMELBAND 


JETZT BESTELLEN UND 
GELD SPAREN'!NUR 
DM12 STATT DM 14,80! 
Bestell-Coupon auf Seite 40! 


Es ist schon ärgerlich, 

daf3 man bei der Arbeit 
mit Grafik auf den Bild- 
schirmbereich von O bis 
639 bzw. von O bis 399 
angewiesen ist. Vor al- 
lem beim Zeichnen von 
mathematischen Funk- 
tionen würde es die 

Arbeit sehr erleichtern, 
wenn man Anwenderko- 
ordinaten definieren könn- 
te. Die x-Achse entsprä- 
che dann der Definitions-, 
die y-Achse der Wert- 
menge einer Funktion. 
Natürlich ist es möglich, 
einfache Umrechnungen 
durchzuführen. Will man 
jedoch mehrere Ausschnit- 
te einer Funktion zeich- 
nen, benötigt man dafür 
wiederum mehrere Ab- 
bildungsvorschriften. 
Deshalb soll heute ein 
Programm entwickelt wer- 
den, das automatisch in 
den vom Anwender fest- 
gelegten Koordinaten 
zeichnet. 

Um einen Punkt (x;y) an 
den Bildschirmkoordina- 
ten (xs;ys) abzubilden, 
muß zunächst ein Um- 
rechnungsfaktor gefun- 
den werden. Dieser be- 
trägt (vorausgesetzt, wir 
nutzen den ganzen Bild- 
schirm) 639/x-Bereich. 
Unter “x-Bereich‘‘ ver- 
steht man die Länge des 
Intervalls, das die Defini- 
tionsmenge darstellt, al- 
so die.Differenz aus größ- 
tem und kleinstem x- 
Wert. Zum Wert vonx, 
multipliziert mit dem 
Umrechnungsfaktor, muß 
noch eine Ausgleichskon- 
stante addiert werden, 

die den Nullpunkt ver- 
schiebt. Sie ist das Nega- 
tive des kleinsten x-Wer- 
tes mal dem Umrechnungs- 
faktor. Die Berechnun- 
gen für die Abbildung von 
y nach ys laufen analog. 
Um die Anwender- in Bild- 
schirmkoordinaten umzu- 
rechnen, sind also vier 
Variable pro Koordinaten- 
bereich nötig. Am besten 
fassen wir sie — obwohl 
sie alle vom Typ REAL 
sind — in einem Record 
zusammen. Um mehrere 
Koordinatenbereiche spei- 
chern zu können. bilden 
wir aus zehn (in der Kon- 
stanten „maxscales““ 


SERIE 


festgelegt) solcher Records 
des Array sc. Zusätzlich 
werden vier globale Varia- 
ble deklariert, welche die 
Werte des gerade benutz- 
ten Koordinatensystems 
beinhalten sollen. 

Die Aufgabe der Prozedur 
„ıinitscales‘ ist es, in 

sc(0) die Skalierungswerte 
für den Bereich (0..639, 
0..399) zu speichern. Der 
Aufruf usescale(0) er- 
laubt es dann, den übli- 
chen Bereich zu verwen- 
den. Ansonsten dient use- 
scale zum Aufruf eines 
der mit setscale festgeleg- 
ten Systeme. Beide Proze- 
duren funktionieren denk- 
bar einfach. Usescale über- 
trägt lediglich die Umrech- 
nungsfaktoren in die ent- 
sprechenden globalen 
Variablen; setscale berech- 
net diese Faktoren nach 
der oben beschriebenen 
Methode. Die Zeichenpro- 
zeduren move(x,y), plot 
(x,y) sowie draw(x,y) 
entsprechen den Basic- 
Aquivalenten. Die Koor- 
dinaten sind jedoch reale 
Zahlen aus dem gerade 
gewählten Anwendersy- 
stem. Eine Umrechnung 
in Bildschirmkoordinaten 
bei gleichzeitiger Run- 
dung wird von den Funk- 
tionen screenx und 
screeny vorgenommen. 
Um den Grafikbefehl aus- 
zuführen, reicht der Auf- 
ruf einer Firmware-Rou- 
tine. 

Der Vorteil dieses Systems 
wird sofort klar, wenn Sie 
sich den Aufbau des Demo- 
Teils ansehen: Obwohl 
vier verschiedene Aus- 
schnitte der Sinusfunk- 
tion gezeichnet werden, 


1 {$L-} 
188 
118 {* 
128 {* 
138 
148 
158 
168 
178 
188 
198 
208 
2ı8 
228 
238 
248 
258 
268 
278 
280 


HISOFT SCALES 


PROGRAM coordinates; 
CONST 
maxscales - 18; 
pi = 3.14159; 


TYPE 
scalerec - RECORD 


END; 


VAR 
xscaleact, xpact, 


xscole, xp, yscale, yp : 


yscaleact, ypact : 


genügt eine einzige Proze- 
dur für die Darstellung. 
Werte, die außerhalb des 
Bereichs der Anwender- 
koordinaten liegen, wer- 
den zwar berechnet, auf- 
grund der Umrechnung je- 
doch außerhalb des Bild- 
schirms dargestellt. Die 
Hardcopy zeigt die Dar- 
stellung, die das Programm 
liefert. 
Bei der Benutzung dieser 
Routinen ist es wichtig, 
sich an die Reihenfolge 
der Prozeduraufrufe zu 
halten. Eingeleitet wird 
grundsätzlich mit 

initscales 
Bevor Sie einen der Maß- 
stäbe ] bis maxscales ver- 
wenden, muß er natürlich 
definiert werden. Dafür 
verwenden Sie 

setscales (nr,xu,xo, 

yu,yo) 
Danach können Sie ihn 
mit usescales anwählen. 
Maßstab O ist -umes 
nochmals zu erwähnen — 
als (0..639,0..399) vorde- 
finiert. Wenn Sie ihn wäh- 
len, funktionieren move, 
plot, draw im „üblichen“ 
Bereich. 
Natürlich müssen Sie nicht 
unbedingt durchgezogene 
Linien darstellen. Das 
folgende Beispiel einer 
Parabel verdeutlicht dies. 
Hier kann man das rasche 
Fallen bzw. Steigen der 
Funktion gut erkennen. 


PROZEDURE parabel; 
VAR 

x,y : real; 

BEGIN 

xı=-5; 

WHILE x<5 DO 

BEGIN 

y!SXkx 


Version 1.1 
by Alwin Ertl 


real 


windows = ARRAY [8..maxscales] OF scalerec; 


real; 
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move (x-0.1,y):; 
draw (x+0.1,y); 
move (x,y--0.5); 
draw (x,y+0.5); 
x:=x+t02 
END 


END; 
BEGIN (Hauptprogramm) 
page; 

initscales; 

setscale (1,-—5,5,0,25); 
usescale (1) 


“ parabel 


END 
Eine interessante und 
nicht allzu schwierige Auf- 
gabe für Sie: Schreiben 
Sie eine Prozedur 
axis(x,y), die durch den 
Nullpunkt ein Achsen- 
kreuz zeichnet. Es muß in 
x- und y-Richtung eine 
Skaleneinteilung haben, 
die den angegebenen Pa- 
rametern entspricht. Ach- 
ten Sie darauf, daß die 
Striche der Einteilung eine 
vernünftige Länge haben. 
Sie können z.B. einen be- 
stimmten Bruchteil des 
Wertbereichs verwenden. 
Besser dürfte es jedoch 
sein, wenn Sie screenx 
und screeny und jedem 
Strich eine Länge von eini- 
gen Bildschirmeinheiten 
geben. Denken Sie aber 
daran, dafs das Ganze 
ein Achsenkreuz werden 
soll, keine Hühnerleiter. 
Auch die restlichen Fol- 
gen dieser Serie werden 
sich mit Grafik befassen. 
Im nächsten Heft wer-. 
den Sie eine Möglichkeit 
kennenlernen, auf einfa- 
che Weise Linien mit 
Punktmuster zu produ- 
zieren. Damit können 
Sie z.B. ansehnliche Bal- 
kendiagramme zeichnen. 
(Alwin Ertl) 
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*} 
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298 
388 
318 
328 
338 
348 
358 
368 
378 
388 
398 
488 
418 
428 
438 
448 
458 
468 
478 
488 
498 
588 
518 
528 
538 
548 
558 
568 
578 
588 
598 
688 
618 
628 
638 
648 
658 
668 
678 
688 
696 
788 
718 
728 
738 
7408 


758 
768 


778 
788 
798 
888 
818 
828 
838 
848 
858 
868 
878 
888 
898 
988 
918 
928 
938 
948 
958 
968 
978 
988 
998 
1888 
1818 
1828 
1838 
1848 
1858 
1878 
1888 
1898 
1188 
1118 
1128 


SERIE 


sc : windows; 
i : integer; {nur fuer Demol} 


TERUNG 


PROCEDURE initscales; 
BEGIN 
sc[8] .xscale :- 1 
sc[®8] .yscale := 1 
sc[8].xp :- 8; 
sc[8).yp :=- 8 
END; 


PROCEDURE usescale (z : integer); 
BEGIN 
xscaleact := sc[z].xscale; 
yscaleact := sc[z].yscale; 
xpact := sc[z].xp; 
ypact := sc[z].yp 
END; 


PROCEDURE setscale (z : integer; xu,xo,yu,yo : real); 
BEGIN . 
sc[lz].xscale := 639 / (xo-xu); 
sc[lz].yscale := 399 / (yo-yu); 
sclz].xp := -xu #* sc[z].xscale; 
sc[lz].yp := -yu * sc[z].yscale 
END; 


PASCAL 


FUNCTION screenx (z : real) : integer; 
BEGIN 
screenx := round (z*#xscaleact + xpact) 
END; 


FUNCTION screeny (z : real) : integer; 
BEGIN 
screeny := round (z#*yscaleact + ypact) 
END; 


PROCEDURE move (x, y : real); 
BEGIN 
rde := screenx (x); 
rhl := screeny (y); 
user (#bbc8) {gra move absolute} 
END; 


PROCEDURE plot (x, . y : real); 
BEGIN 


rde := screenx (nl; 
rhl := screeny (y); 


user (#bbea) {gra plot absolute} 
END; 


PROCEDURE draw (x, y : real); 
BEGIN 
rde := screenx (x); 
rhl := screeny (y); 
user (#bbf6) {gra line absolute} 
END; 


PROCEDURE sinus; {nur fuer Demo!} 
‚vAR 
x : real; 
BEGIN 
x := 8; 
move (x,sin(x)); 
WHILE x < 4#pi DO 
BEGIN 
x := x + 8.81; 
draw (x,sin(x)) 
END 
END; 


BEGIN 
page; 
initscales; 
FOR i := 1 TO 4 DO 
setscale (i,8,i*pi,-1,1); 
FOR i := 4 DOWNTO 1 DO 
BEGIN 
usescale (i); 
sinus 
END 
END. 


HISOF Terweı- 


4 Farb- 114 mm Rollenplot- 
ter für alle CPC 150 DM: 
Profi Painter 50 DM: XBC 
Basiccompiler für struktturier- 
tes Programmieren, Labels, 
Fließkomma, Tel. Datei 

60 DM. Auch Tausch gegen 
Anwendersoftware. Bruno 
van Danen, Vehrels 35, 
28HB66 0421513283 


BÖRSE 


*** An alle CPC-User *** 
Verkaufe für CPC eine 3“ 
Disk. voll mit Spielen oder 
Anwendungen Ihrer Wahl 

für nur 25,— (z.B.: Graphik 
Master, Grand Prix, Bomb- 
jack, 1942). Info: Kay 
Schwettmann, Steubenstr. 6, 
4990 Lübbecke 1, Tel. 05741/ 
16 86 


Suche dringend preisw. Erst- 
laufwerk f. CPC 464, mögl. 
51/4“ Tel. 02433/1350 
Achtung! CPC 6128 Besitzer. 
Suche Tauschpartner, habe 
viele Programme, z.B. AMX 
Pagemaker, Mica, StarTexter, 
dBasell, Frontier (SDI 
Symulation Spiel / Bitte 
gleich im ersten Brief paar 
Programme zuschicken an: 
DUDA Anna, 6750 K’lau- 
tern, Barbarossaring 32 

*** Achtung *** 

Verkaufe Spiele für CPC’s 
nur auf Diskette: They stole 
a Million: 25,—. Druid/Rague 
Trooper / Scooby Doo / 

alle 15,—. Schreibt an: 

C. Glogau, Auf der Heide 24, 
5205 St. Augustin 1 


CPC 464 — Eprom Platine 
mit 3 Eproms (Protext- 
Utopia — Maxam) 250 DM 
und RS232 Schnittstelle für 
70,— DM zu verkaufen. 
Bargeld oder Scheck an: H. 
Kinkel, Postfach 1552, 5130 
Stolberg, Tel. 02402-21354 


Hey Du! Ich suche Top 
Games in ganz Europa. 
Schickt Eure bespielten Disk 
an: Thomas Elstorpff, Hause- 
ner Str. 14, 7214 Zimmern | 
(Tel. 0741/32857) 100 % 
Antw. 3 Zoll 


*** Achtung *** 
Verkaufe Originalkassetten 
Spindizzy, Mindshadow, 
Cyrns 3-D Chess, Nonterra- 
quaeous im Set: ÖS 350,— / 
DM 50,-—. Markus Heinrich, 
Mitterweg 4, A-4150 Rohr- 
bach Österreich 

Suche Spielanleitung für 
ELITE (Fotokopie o0.ä.). 
Unkosten werden erstattet. 
Jochen Koch, Haustr. 23, 
7401 Pliezhausen 


Suche für CPC6128 ein 
3-Zoll-Zweit-Laufwerk. 
Zuschriften an: Markus 
Driester, Dotzheimerstr. 113, 
6200 Wiesbaden, Tel. 06121/ 
444141 

Aktienverwaltung Programm 
mit BTX Routine. Dosaal, 

Loheide 38, 4800 Bielefeld 


Wer kann mir für meinen CPC 
6128 das Psion Chess Pro- 
gramm besorgen? Suche auch 
Star Writer, Barbarian, Wer- 
ner, Arkanoid 

Heinz Katolla, Werner Hell- 
weg 81, 4630 Bochum, Tel. 
0234/360714 


Verkaufe CPC 464 + 64K 
Erweiterung + Software + 
Handbücher — 425 DM — 
oder Tausch gegen? 

Tel. 06006 — 73519 ab 20 h 


20 MB Festplatte incl. Contr. 
für Schneider PC zu verk. 
Tel. (0921) 445 20 ab 18 Uhr 


Lightpen für CPC Marke: 
Trojan GB / Neupreis 99,— 
DM, verkauft wegen Syst. 
Aufg. für 40,— DM H.A. 
Kretzschmar, Postf. 210405, 
4100 Duisburg, Tel. 0205/ 
283 31 16 oder 33 73 83 
(nach 17.00 Uhr) 


Suche Spiele u. Anwendungs- 
prg. (Donky Kong, Thoma- 
hawk, Beach Head I+IlI, Ma- 
stercopy usw.) Alles auf C/D, 
Suche Farbmonitor für 6128, 
Kaufe und Tausche Program- 
me, Suche Freeware. Sendet 
Listen, Antwo. garantiert. 
Wimmer, Röthenstr. 15, 
8643 Küps 


Suche Kalkprogr. u. Übersch- 
Ru. FDI im Tausch gegen 
and. Soft. D. Maron, Bahn- 
str. 26, 2085 Quickborn 


Schneider-Drucker NLQ401 
DM 400,-—, Traktorführung 
für NLQ 401 DM 55,— 
gegen Vorkasse oder Nach- 
nahme (+ DM 3,—). 

Klaus Lindner, Tel. 02227/ 
7040 


Public Domain für Schneider 
CPC, jetzt 6 Disks, Liste gg. 
1,50 DM, DEHOCA-Orts- 
gruppe Rinteln, Karsten 
Meier, Langenfelderstr. 24a, 
3262 Auetal, Tel.: 05752/ 
601 


CPC464 Col, DDI-1, PC 

Int 3’85 — heute (Databox 
10’86—7’87) + 4 Sond (+ Da- 
tab), Magazin 8’86-7’87, 
Aktiv 10’85-7’87 + 3 Sond. 
Happy 7 Sond., 10 Data- 
Becker Bücher, Disk + Kass. 
(Anw+Spiele) VB 1200,— DM 
auch postenweise. Tel. 
02233/779 37 (ab 18 Uhr) 


Verkaufe Original Software: 
Wordstar 3.0 für 464/664 
80,— DM. Datamat, Mathe- 
mat, Textomat je 35,— DM 
(alle CPCs); Budget Manager 
(nru 464) 30,— DM (alles auf 
3“-Disk mit Handbuch). 
Tausche außerdem Top-Soft- 
ware auf 3“-Disk. 

Montjean Thomas, Theodor- 
Heuss-Str. 7, 5170 Jülich 
Tel. 02461/7266 


Verkaufe Original ‚Copy- 
shop“ 50 DM + Diskette zu 
Tips + Tricks 2, 20 DM.W. 
Nowarra, Wasserturmstraße 
14, 5000 Köln 90 


Super Software 

... und das noch superbillig! 
Das beste, was einem passie- 
ren kann! Liste gratis bei: 
Chris Holhut, Cranachstr. 2, 
8659 Untersteinach. Außer- 
dem Sicherheitskopien gra- 
tis! Info: siehe oben! 


Verkaufe Schneider-Drucker 
NLQ 401 mit Traktoraufsatz 
VB 390,—. Tel. 05532/ 
5430 


*** CPC Tauschpartner *** 
Tausche Software jeder Art 
auf Tand D. Sendet Eure 
Listen an: 

Mark Stauffer 
Hölibachstraße 110 
CH-8912 Obfelden (Schweiz) 
Beantworte jede Zuschrift ! 


Suche Vortex-Fooppy F1-X 
zum CPC464 auch reparatur- 
bedürftig u. Speichererwei- 
terung mit Handbuch + Land- 
wirtschaftliche Software. 
Angebot an Schindler Josef, 
3932 Weissenalbern 21, 
Austria 


Typenraddrucker Olivetti 
Dyzll zu verkaufen / mit 2 
Typenrädern und Farbbän- 
dern / 307 / Sschnell / sehr 
guter Zustand / Einzelblatt 
und Endlosformular / Preis 
Verh.Sache / H.A. Kretzsch- 
mar, Postf. 210405, 4100 
Duisburg 1, Tel. 0203/ 
337383 (nach 17 Uhr) 


Hallo, C16&P4 Fans! Wer hat 
folgende Games zu tauschen: 
Suche ACE +4, Quiwi, Pilot 
X, Skooby Doo, Classics 3, 
Project Nova, Konami Coin 
Hits? Tausche gegen: Bride- 
head, Karate King, Skramble, 
Rockman, Terra Cognita. 

Es eilt !!! 

Jan Winkel, Wilhelmstr. 20, 
5230 Altenkirchen 


Achtung! Fertige Sicherheits- 
kopien vom 3“-Disketten für 
nur 1 DM an. Original + Leer- 
disk an: Thomas Mehring, 

Im Kamp 5, 5012 Bedburg 4. 
Beide Disks kommen garan- 
tiert zurück! Achtung! Rück- 
porto nicht vergessen! 

Suche: Werner (Das Spiel) f. 
den 6128 auf Diskette. 

Rolf Hanfland, Fuchspfad 60, 
5760 Arnsberg 2 

Hallo Computerfans — ver- 
kaufe Software auf 3“ Dis- 
ketten für CPC. Sende Liste 
gegen 80 Pfennig Briefmarke. 
Im Angebot sind enthalten: 
Games und Anwenderpro- 
gramme. Liste an Heike Lo- 
renz, Blücherstr. 58, 6200 
Wiesbaden, Tel. 06121/ 

44 44 87 / Disc. 19,— 
Schüler sucht dringend Soft- 
ware Spiele für Schneider 
CPC6128 auf Diskette: 

1942 3D Grand-Prix, Werner. 
Angebote an Jan Hundert- 
mark, Tel. 07720/31310 


Verkaufe Software: z.B. Co- 
pyshop / Painter / Spiele 
Wenny Alexander, Neusels- 
brunn 33, 85 Nürnberg 50 
Tel. 863877 


LICHTGRIFFEL 
mit Programm für CPC 
464 oder CPC 664 + CPC 
6128 nur 49,— DM. Ver- 
sand gegen Scheck/Nach- 
nahme. Info gratis! 

Fa. Schißibauer, Postfach 
1171S, 8458 Sulzbach, 
Tel. 09661/6592 bis 21h 


*** CPC 6128 *** CPC 664 
Suche Tauschpartner für Pro- 
gramme auf Disc. Meldet 
euch an: Daniel Emch, Fel- 
senweg 44, 4632 Trimbach 
(Schweiz) 


Dataphon S21d A Akustik- 
kopp. Term. Prog. Tele-com 
CPC und org. serielle Schnitt- 
stelle für CPC 464 zu verkau- 
fen. 300 DM 

Meier Bernd, 8820 Gunzen- 
hausen, Birkenweg 17, Tel. 
09831/501 98 


Suche für CPC-6128/464 

eine Eprombrenner, Steck- 
cards und Druckerpuffer 
(Hardware) mit mindestens 
20KB. Schneider-User-Club 
Mainspitze, c/o A. Schubert, 
Im Hasengrund 46, 6090 Rüs- 
selsheim, Tel. 06142-621 46. 
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Tausche Spiele auf CPC 6128. 
Habe Supergames! Suche 
auch zuverlässigen Tausch- 
partner!!! Sendet eure Li- 
sten an: Günther Hackl, 
Schweinhütt 174, 8370 
Regen. Ich beantowrte jeden 
Brief! Laßt mich nicht warten! 
*** Suche Adventure *** 
Gekaufte oder selbstgeschrie- 
bene. Nur deutsch!!! Besitze 
CPC-464 mit Cassette. Gra- 
fik-Adventure. Suche beson- 
ders ZORGOS. Interessiere 
mich auch für SPY VS. SPY. 
u. VAMPIRE (Nr. 9187) usw. 
Tel. 07306/33 182. 


Bin Anfänger und habe einen 
PC 6128. Wer kann mir wei- 
terhelfen mit Spielen und 
Software? Suche vor allen 
Dingen Adressenverwaltung 
und ein gutes Textverarbei- 
tungsprogramm. 
Karl-Heinz Rullmann, Zum 
Goldacker 6, 6450 Hanau 8 
Tel. 06181-69 08 64 
SOFTWARE zu TIEFST- 
PREISEN! OKI-DRUCKER. 
Sparen Sie: ab DM 348,—! 
Computer? INFO DM 2: 
Fa. RUEHL — Soft- & Hard- 
ware, Burg — 19d, 4150 Kre- 
feld 11 
* DISKETTEN m.Gar. * 
* 3° Markendiskette2CF * 
nu DM 6,50 ® 
* Allgem. Aüstro-Ag. & Hges. * 
*Ringstr. 10, D-8057 Eching/* 
* Günz. Tel: 08133/6116 * 
Gratifinfo erhält jeder CPC- 
464/664/6128-User kostenlos 
bei Friedrich Neuper, Pf. 72, 
8473 Pfreimd 
Suche dringend CPC-Club 
oder User im Raum Fulda 
zwecks Kontakt mit Gleich- 
gesinnten und Einstiegshilfe 
am CPC 6128. Adr.: Thomas 
Lorösch, Am Steinberg 10, 
6405 Eichebzell-Kerzell, 
Tel. 06659/2839 


*** Hey Freaks *** 

Ich suche einen einzelnen 
Farbmonitor und Drucker!! 
Angebote an: Jürgen 
Schwanzer, Hauptstraße 33 
8744 Mellrichstadt 


Der A-U-C sucht Schneider- 
Clubs zur Zusammenarbeit 

in einer großen Gemeinschaft! 
Ziel: Problemlösungen/ 
Anfäng.-Hilfe / Interessen- 
vertretung. Info geg. Rück- 
porto bei Dieter Möckel, 
Wunsiedler-Str. 11, 8591 
Thiersheim 


BÖRSE 


Verkaufe Multidatei (Rain- 
bow Arts) 30,—! Adressverw. 
(RSE) 30,—; Vereinsverw. 
10,—; Super-Hardcopy (RSE) 
35,—; Statistic-Star (Star- 
Div.) 35,—; Notenverw. 35,—. 
Tel. 05532/5430 


. Verkaufe allgemeine Soft- 


ware Zeitschriften, Bücher 
und Zeitschriften über den 
CPC 464. Tel. 030/795 14 21 


** Verschleudere CPC-664** 


Suche Tauschpartner (Anwen- 
dungen) nur 3“ Disk. 

Listen oder Info an: Detlef 
Hawlitzek, Treiberweg 5, 
4708 Kamen 4. 

Tel. 02307/42523 ab 20 Uhr. 
Suche 51/4 Laufwerk für 
CPC 464 


Verkaufe Matrixdrucker: 
Shinwa CP 80 mit Centronix- 
Schnittstelle. In sehr gutem 
Zustand. VB DM 400,— 

Tel.: 089/6370808 ab 18 Uhr 


mit Farbmonitor für 350, 
DM an Hobbybastler: Com- 
puter def. Disk & neuwertiger 


Farbmonitor funktionstüchtig. 


Briefe an Anselm Windhövel, 
Durlesstraße 34, 8780 
Gemünden-Wernfeld 


Suche Atari-Computer 

+1050 Floppy! Biete CPC464 
+ MP2 + Software! Anfrage 
bei: Detlef Glacer, Munscheid- 
str. 22, 4300 Essen 13. 

P.S. Suche und tausche Soft- 
ware für für CPC + Atari! 


Tausche oder verkaufe Soft- 
ware für CPC 6128 auf 3“- 
Disketten. Listen an: Tim 
Schäfer, Pf.-A.-D-Str. 12, 
6806 Viernheim 


Verkaufe Orig. Disc Bomb- 
Jack II Cyros II Hanse Indor- 
Sports Koronis Rift Hacker 
II Wonderboy Tomahawk 
Sailing und vieles andere zw. 
20-30 DM. Textomat-Dato- 
mat 70 DM. Gratisliste bei: 
Seiler, Karlstr. 125, 75 Karls- 
ruhe 1, Tel. 1721/32157 


Original verpacktes BASF- 
Laufwerk 5.25 Zoll (1MByte) 
für CPC (als ZweitLW) zu ver- 
kaufen. Neupreis 380,— / 
Verkaufspreis 100 DM. 
Sofort melden bei: 

H.A. Kretzschmar, Postf. 
210405, 4100 Duisburg 1, 
Tel. 0203/2833116 oder 
337383 (nach 17.00 Uhr). 


Super-Original-Software !!! 
... und spottbillig! Außerdem 
Hilfe in Baisc + gratis Sicher- 
heitskopien! Info kostenlos 
bei: Christian Holhut, 
Cranachstr. 2, 8659 Unter- 
steinach / Suche Tauschpart- 
ner in Oberfranken! 


Suche für meinen 464 einen 
gebrauchten 3“-Floppy. Billig 
und funktionsfähig. Angebote 
an Tel. 02106/91119 


Achtung CPC-User! Verkaufe 
Original-Software für CPC / 
Kassette von 5,— DM bis 
10,— DM / Disketten von 
10,— bis 15,— DM! Liste an- 
fordern bei H.A. Kretzschmar, 
Postf. 210405, 4100 Duis- 
burg 1 / Telefon 0203/ 

283 31 16 oder 33 73 83 
(nach 17.00 Uhr) 


CPC-Computer Club-Füssen. 
Wir suchen neue Mitglieder 
aus aller Welt! Bitte Info an- 
fordern! 

Markus Kehle, v. Freyberg- 
str. 61, 8958 Füssen — Tel. 
08362 / 66 45 Anmeldung 
ach per Telefon! 


Achtung! Ich löse meine 
Progsammlung auf! Alles 
Originale! 50 % des neuprei- 
ses. Info gegen frank. Rück- 
umschlag o. Anruf bei: Man- 
fred Lipowski — In der 
Wanne 165, 4620 Castrop 
Rauxel 4, Tel. 02305/722 37 
Vertrau mir! 


PC: Liga-Verw 4-22 Vereine 
+ alle Ergebn. Der F-Bundesl. 
von 1963-1987. VK 45,— 
NN 49,— M. Koethe, Meders- 
bach 6, 8413 Regenstauf 


CPC 6128 
grün Monitor + 10 Disketten + 
4 Monate Garantie + Hand- 
buch + Diskettenbox + Zeit- 
schriften + 2 Joysticks 
NP 1.200,— für nur VB 
900,— bei: Dirk Segger, 
Parkstr. 5, 4934 Horn — Bad 
Meinberg 2 


Suche billigen gebrauchten 
Matrixdrucker und Tausch- 
partner für 464 Software 
K+D. Patrick Peiffer, Rue 
Principale 21, L-8818 Grevels 
Tel. 88158 

Original Spiele für Schneider 
CPC zu verkaufen. 

Airwolf * Combyt Lynx * 
Hunter Killer * Infiltrator * 
Red Arrows * Marsport * 
Strike Force Harrier * Je Disc 
DM 25,— * Lotto 6 aus 49 * 
Disc DM 30,— * Game Box | 
* Kass DM 10,- 

Tel. 089/637 0808ab 18 Uhr 


Suche Johnny Rebll auf 
Schneider CPC Diskette oder 
Anschrift des Anbieters. 
Knut Mayer, Ulmenweg 1 
5552 Morbach 


Suche Schneider-Sonderhefte: 
CPC-International: Nr. 1+2, 
Happy Computer: Nr 1-5 
und 7. U. Spiegel, Adolph- 
Kolping-Str. 52, 8306 Schier- 
ling, Tel. 09451/814 


Verkaufe Joyce PCW 8256, 
wenig benützt! VB 1100,—, 
für Selbstabholer. U. Spiegel, 
Adolph-Kolping-Str. 52, 
8306 Schierling, Tel. 09451/ 
814 


SP 128 KB v. Data Media 
m. Handbuch + Kassette 
100,— DM * Unidatei von 
RSE 40,— DM * 2 Bücher zu 
DBase Il zus. 35,— DM. 

Tel. 08071/6268 n. 18 Uhr 
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Halbjähriges CPC 6128, 
Drucker Privileg 165, sp, 
Joy QuickShot IX, Monitor 
Verläng.Kabel, Data Rec. 
Taurus mit Kabel für CPC 
6128, Drucker Kabel, Disk 
Box, Staub Schutzer, GT 65, 
Endlospapier 1000 Ig, Zeit- 
schriften 30 egz. (Schneider 
Aktiv, CPC Schneider, PC 
Int. Bücher und Software wie 
z.B.: dBase Il, Star Texter, 
Mica, Starfighter, Rol. Ahoy, 
High Frontier (SDI Simul. 
Spiel) ... Zusammen über 20 
Disketten und 10 Kassetten 
zu verkaufen wegen System- 
wechsel. NP 3.800,—, jetzt 
2.800,—. Info Tel. (0631) 
406 56 nach 18 Uhr oder 
schriftlich an: A&Z Duda, 
6750 Kaiserslautern, Barba- 
rossaring 32. 


CPC 6128 Color mit Vortex 
F1-X, MC-Tape 3810, DMP 
2000 mit 8K, ca. 80 Disket- 
ten, alle Schneider-Hefte ab 
1/86, Joystick und viel Zube- 
hör. Superpreis komplett 
1.800,— DM. E. Neumann, 
Aalbachstr. 20, 6980 Wert- 
heim ,Tel.: 09397/593 


Schneider PC: 2. Laufwerk 
DM 250,— und 21 MB File- 


card incl. Software DM 950,—. . 


Suche Drucker. 
Tel. 040/763 82 79 


Tausche und verkaufe Spiele 
auf 3“ Diskette z.B. Amthello 
Smiling-Ball u.a. Auch An- 
wenderprogramme z.B. Is- 
lam (Musikprogramm) u.v.m. 
Prodiskette 19,-- nur bar. 
Suche Kontakt zu Userclub 
Raum Wiesbaden. Bitte mel- 
den. Bei Volker Lorenz, 

Tel. 06121/44 44 87, 6200 
Wiesbaden ab 20.00 Uhr 


Verkaufe CPC364 mit Grün- 
monitor, 20 Monate alt. An- 
gebote an: Johann Reger, 


Ellenfeld 3, 8591 Bärnau. » 


CPC 464. Tausche und ver- 
kaufe Programme auf Kasset- 
te sowie 3-Zoll-Diskette 
(Schneider) + 51/4-Zoll- 
Diskette (Vortex). Klaus 
Bartram, Haardtwaldstr. 1-7, 
6000 Frankfurt 71 


CPC 464 mit 612K-Vortex- 
speichererw. + Floppy + 
Monitor, diverse Software 
(Wordstar, Pascal, DBase 
Spiele 725 DM) 

Obige 412K-Erweit. für CPC 
464 neu! 270 DM. Beides ab 
Münster oder Aachen. 
Michael Wilke, 0241/87 51 32 
Suche Tauscnpartner(in) 
CPC6128 und Hilfe bei Ar- 
beit mit dBase Il und beson- 
ders AMX Pagemaker. Am be- 
sten Kreis K’lautern — Mann- 
heim. Habe zu verkaufen 
Commodore 16, Spiele, Zeit- 
schrift. Bücher & Zubehör. // 
A.Z. Duda, 6750 K’lautern, 
Barbarossaring 32 

Verkaufe: PROWORT 
(CP/M+) in deutsch mit 
Wörterbuch FP 200,— DM; 
TexPack 80,-, div. Spiele/ 
Bücher; Tel. 06071/37177 
nach 18 Uhr 


Amstrad-Schneider-User- 
Club — Aachen. International 
nimmt noch Mitglieder auf. 
Derzeit 204 Mitgl. aus 8 Na- 
tionen. Info-Mat. bzw. Club- 
zeitung gegen | bzw. 3 DM in 
Marken. A.S.U.C.A.-Int. 
Zeisstr. 7,5132 Übach -Palen- 
berg 

Verkaufe über 60 org. 
Anwendungsprogr. u. Spiele 
nur 20 % bis 30 % des Neu 
preises. Liste gegen Rückpor- 
to bei Richard Cloots, Zeisstr. 
7,8132 Übach-Palenberg 5 
Verkaufe CPC-6128 Color 
mit 60! Disketten (alle wich- 
tigen Programme) + 5 Bücher 
+ Staubschutzhaube + Joy- 
suick + Discbox + 60 Zeit- 
schriften und Kleinkram für 
1100 DM. Matthias Düzn, 
Meerbusch, Tel.: 02105/ 
8359 für Selbstabholer 

Suche gebrauchte Komplett- 
anlage CPC oder PC1512 zu 
einem günstigen Preis. 

Anrufe bitte erst nach 19 Uhr 
Tel. 02451/466 08 

Richard Cloots, Zeisstr. 7, 
5132 Übach-Palenberg 


Suche billigen Drucker 
(funktionstüchtig) für CPC 
464 mit Anschlußkabel. An- 
gebote bitte an: Knapek Tho- 
mas jun., Eichenweg 21, 8312 
Dingolfing. ES EILT!!! 


BÖRSE 


Übersetze Ihre englischen An- 
leitungen (auch umfangrei- 
chere). 250 engl. Wörter: 

| DM + Rückporto. Senden 
Sie Ihre Anleitung an: 
Thomas Naumann, Blücher- 
str. 13, 2300 Kiel 1. Oder 
fordern Sie kostenloses Info- 
blatt an! 

Suche gute Kaufm. Software 
im Tausch gegen Softw. oder 
bar. D. Maron, Bahnstr. 26, 
2085 Quickborn 


Suche preiswerte Programme 
für Schneider Joyce, insbes. 
Rechtschreibfehler-Suchpro- 
gramm, Astrologie, Vereins- 
software, Finanzbuchhaltung, 
Angebote an Postfach 1171, 
3492 Brakel 


Verk. CPC6128 fast neu !!! 
GT 65 u. Programme + 
Spiele + MP2 Joys und Hefte 
+ Progsprache Comal 

Tel. 04176635 Matthias 
Magic-Club bietet Super Ser- 
vice zum kleinen Preis! Wir 
suche Mitglieder aus aller 
Welt,die deutsch können! 
Nur eine Mark im Monat! 
Info bei A. Ziesemer, Gabels- 
bergerstr. 18, 78 Freiburg, 
Tel.: 0761/4442829 ab 19 h 
bis 20 h! Bitte Info anfordern 
CPC-International 3/85- 
10/87 100 DM / Schneider 
Aktiv 11/85 — 10/87 80 DM 
— CPC Magazin 12/85 — 
10/87 80 DM oder alles für 
200 DM. 

H. Kinkel, Postfach 1552 
5190 Stolberg, Tel. 02402- 
21354 
Suche für CPC6128 billige 
Spiele (Disk.) Schickt eure 
Angebote bitte an: Ralf 
Rasch, Kolpingstraße 4, 
8999 Heimenkirch 

Wer hat Lust, bei M***MSX- 
CCD*** mitzumachen. Wir 
bieten: Hilfe für Anfänger — 
Erfahrungsaustausch und 4x 
im Jahr den MSX-Kurier. 
Gratis-Info bei: Eeckhardt, 
Am Hinkelstein 26, 6140 
Bensheim 

Tausche Software aller Art. 
Liste an Michael Schaefer, 
Rhein-Maas-Str. 3, 5100 
Aachen. Nur Tape (464) 
Verkaufe orig. Kass.-Soft- 
ware z.B. Werner; Winter 
Games; Moon Buggy je 20,— 
DM. Habe auch noch andere! 
Michael Meissner, Walchen- 
seestr. 35, 7000 Stuttgart 
50, Tel. 0711/532711. Auch 
Softw.-Tausch. Nur Kass. 


Achtung! Tausche Spiele nur 
S“-Disk. Habe z.B. Arkanoid, 
Enduro Racer, Shockway 
Rider u.v.m. Schickt eure 
Listen an Jochen Anderlohr, 
Bergstr. 8, 8779 Frammers- 
bach. 100 % Aniwort zum 
ersten Brief bitte gleich ein 
Spiel. 

Verkaufe original Wordstar. 
Preis: 140 DM, Thomas Som- 
merfeld, Bergach +4, 7614 
Gengenbach, Tel.: 07803/ 
2839 


Folgende Spielcassetten zu 
verkaufen: Fruity Frank, 
Combat Lync, Moon Cresta, 
Mac-Adam Bumper, 3D 
Grand Prix Monty on the 
Run. Zusammen nur 100 DM 
+ NN. R. Wegener, G.-Fr.- 
Händelstr. 25, 3410 Nort- 
heim 


Achtung! CPC 6128-User!! 
Tausche Software m. Freaks 
aus ganz Europa. Sendet 
Eure Listen an (nur Disk. 3“) 
Ralf Korpies, Jahnstr. 25, 
8370 Regen. Hoffentlich 
bald!! 

Verk. CPC 6128, Farbmon. 
inkl. Lit., Software f. 950,— 
DM. Tel. 04261/835588 

ab 19 Uhr 


AVALON! Achtung: Ab Nov. 


ist es soweit! AVALON — das 
Grafik-Adventure is coming!! 
338 KB m. Sound! bis bald: 
TPJ. Thorsten Blum, Kasta- 
nienweg 2, 5316 Hillscheid 

* Tausche * Liste gg. frank. 
Rückumschlag. Adresse: 
Andreas Ludwig, Wilhelmstr. 
19, 6501 Budenheim 

Suche Chip Sonderheft 1, 

2, 3 Schneider 464 Software 
auf Disk. Angebote an Rüdi- 
ger Kruse, Walbeckerstr. 5l, 
3332 Grasleben, Tel. 05357/ 
1335 

CPC 464 grün u. DDI 650,-; 
6 Data Becker Bücher 220,-; 
alle CPC Internat. 110,—; 
Sonderhefte (4 CPC/2HC) £. 
60,—; 13 Leerdisk. 75,—; 

3 Prog. (Hitchhiker’s, Cyrus 
2, Superpack 80) 195 ,—. 
Auch einzeln. 

Tel. 07351/71754 

Textomat Plus u.a. Program- 
me f. CPC 6128 gesucht! 

A. Krallmann, Beringallee 1, 
2940 Wilhelmshaven, Tel. 
04421/83552 

Hey Du! habe Top-Software 
zum Tauschen (nur Disk.) 
Ruf mal an: 05254/60501 


Verkaufe: They Sold a Mil- 
lion II (gebraucht) f. nur 
40,— DM. Info: Kai Schwett- 
mann, Steubenstr. 6, 4990 
Lübbecke 1, Tel. 05741/ 
1686 (f. CPC) 

Verkaufe CPC 464 m. Floppy, 
Drucker, 100 Spiele, Comp.- 
Zeitungen, Handbücher u. 
Computertisch. VB: 1.800,— 
DM Gerd Holz, Lützerather- 
str. 39, 5000 Köln 91, Tel. 
0221/86290 

Suche: Variatus Umbausatz 
464 nur in gutem, kompl. 
Zustand. Verkaufe: Je 2x 
464, grün, DDI, FDI, Vortex 
SP 256, Haube, Dr.-Kabel, 
sehr viel Software u. Lit. 
Neupreis je mind. 3.500,— 
DM, Verk.-Preis je 1.750, — 
VB. Tel. 0214/54928 
CPC-User-Club Kinzig sucht 
noch Mitglieder u. Kontakte 
zu anderen Clubs in der nä- 
heren Umgebung. Wer könnte 
einem unserer Clubmitgl. bei 
Schneider ComPack weiter- 
helfen? CPC-Userclub Kin- 
zig, c/o Richard Luppert, 
6456 Langensclbold, Garten- 
str. 18, Tel. 06184/2307 
Suche zwecks Clubgründung 
Mitglieder (CPC-User) im 
Raum St. Gallen (CH) u. 
Rheintal. Interessenten wen- 
den sich an: Frank Hengart- 
ner, Vorburg, CH-9473 Gams 
(SG) 

An alle Schneider-Computer- 
Freaks. Wir, der Schneider- 
Amstrad-Computerclub, su- 
chen noch Mitglieder. Alter: 
10—15 Jahre. Clubbeitrag 

70 Pf. im Monat. Zeitung 
kommt monatlich kostenlos, 
Näheres: Chr. Hartmann, 
Sandweg 115, 2900 Olden- 
burg 

Suche Tauschpartner! Tausche 
Software aller Art auf Disk! 
Auch Zeitschriften! Suche 
Chemie-, Copy- u. Sound- 
Programme! Bitte m. Liste 
an: Robert Theuer, Lange 
Minute 23, 2819 Morsum 
100% Antwort 

Tausche Grünmon. u. 4 Su- 
per-Spiele (Bomb Jack usw.) 
um 100,— DM gg. Farbmon. 
Grebor Brokamp, Upn Tim- 
pen, 4598 Cappeln-Tenstedt, 
Tel. 04478/487 

** CPC Computer Club ** 
Wir suchen noch Mitglieder 
aus aller Welt. Bitte Info an- 
fordern! Markus Kehle, v. 
Freybergstr. 61, 8958 Füssen/ 
Allgäu. Tel. 08362/6645 


TEST 


Die letzten Tage 
der Menschheit- 
oder doch nicht”? 


Ein neues Spiel der Extraklasse hat die Softwarefirma Firebird 
auf den Markt gebracht: ‚‚Cholo’’, ein Spiel voller Spannung und Über- 
raschungen, aber auch voller Schwierigkeiten. Und damit die Hintergrund- 
story nicht immer die gleiche ist, werden diesmal keine Monster aus 
dem Weltall gejagt. Die Geschichte spielt vielmehr nach einem weltweiten 
atomaren Krieg auf unserer Erde. 


Die Titelgrafik verspricht nicht zuviel. Cholo ist ein Spiel der Extraklasse 


Stellen Sie sich vor: Nach einem 
Atomkrieg haben sich einige Über- 
lebende in einen sicheren Bunker 
zurückgezogen. Ein Computer 
steuert alle Funktionen in diesem 
Domizil, das hermetisch von der 
Außenwelt abgeschlossen ist. Die 
Menschen leben in ihrer künstli- 
chen Welt nun schon in der fünften 
Generation. Sie haben zwar allen 
Komfort, aber: Wie es außerhalb 
ihres Bunkers aussieht, wissen sie 
nur noch aus den Erzählungen der 
Alten. 

Der Zentralcomputer, der als einzi- 
ger durch seine Sensoren den Kon- 
takt zur Außenwelt aufrechthält, 
meldet noch immer erhöhte Radio- 
aktivität, um die Bewohner davon 
abzuhalten, einen Weg nach draußen 
zu suchen. Doch die Strahlung hat 
in Wirklichkeit längst nachgelassen; 
dem Computer sind aber die Robo- 
ter auf der Oberfläche außer Kon- 


trolle geraten. Und just diese Robo- 
ter sollten eigentlich nach dem Ab- 
klingen der Radioaktivität den Bun- 
ker wieder öffnen und die Menschen 
in die Freiheit entlassen. 


BRECHEN SIE DAS SIEGEL AUF, 
BEFREIEN SIE DIE MENSCHEN! 


Dazu muß ein Siegel gebrochen 


werden, das den Eingang verschließt. 


Doch wer sollte dafür infrage kom- 
men, wenn keiner mehr da ist, der 
dem Computer gehorcht? 

Aber wie das Leben so spielt: Eines 
Tage, im Monat Mai, wird doch tat- 
sächlich ein Roboter entdeckt, der 
sich noch fernlenken läßt und den 
Befehlen folgt. Jetzt fehlt nur noch 
der Mensch, der diesen Droiden 
lenkt; der Computer ist nämlich 
total überlastet. 

An diesen Menschen werden natür- 
lich erhöhte Anforderungen ge- 
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een 
aktiv 


stellt: Neben schnellen Reaktionen 
und abstraktem Denkvermögen ist 
vor allem ein großes Verantwor- 
tungsgefühl für die Rest-Menschheit 
im Bunker notwendig. Denn wird 
der Roboter vernichtet, ist es um 
die Eingeschlossenen geschehen; 
nie wieder werden sie die Sonne am 
Himmel leuchten sehen (schluchz). 
Dieser Mensch, der sich aufmacht, 
den übrigen Rest wieder ans Tages- 
licht zu führen, sind Sie! Also, leh- 
nen Sie sich zurück und konzentrie- 
ren Sie sich, gleich geht das Spiel, 
das letzte Spiel, los. 


15 MINUTEN ZUM LADEN 


Das Programm Cholo, in Deutsch- 
land vertrieben von Ariolasoft, hat 
es in sich. Das merken besonders 
die Kassettenbenutzer. Denn das 
Programm braucht etwa 15 Minuten 
zum Laden. Solange müssen Sie war- 
ten, bis Sie zum ersten Mal den Joy- 
stick benutzen können. Aber die 
Warterei lohnt sich! 

Nach dem Laden des Titelscreens 
wird das Programm in den Speicher 
des CPC geholt. Danach wird das 
eigentliche Bild geladen, das in meh- 
rere Windows aufgeteilt ist. Rechts 
oben erkennen Sie den Plan der 
Stadt. Recht klein zwar, den blin- 
kenden Punkt, der den jeweiligen 
Standort des Rat-Droiden darstellt, 
mufßs man schon mit der Lupe su- 
chen. Aber bei guten Augen geht es! 


CRASH? DANN IST DER 
DROID GEGEN EINE MAUER 
GELAUFEN 


Rechts unten wird das Mitteilungs- 
oder Dialogfenster sichtbar. Dort 
werden Anzeigen vorgeblendet, die 
Sie während des Spiels immer im 
Auge behalten sollten. Wenn Sie 
zum Beispiel Ihren Droiden gegen 
eine Mauer lenken, werden Sie nicht 
durch ein entsprechendes Geräusch 
darauf aufmerksam gemacht, son- 
dern durch die lapidare schriftliche 
Mitteilung ‚‚crash‘“. 

Fast die ganze linke Seite des Bild- 
schirms wird vom Sichtfenster des 
Roboters beansprucht. Dort können 
Sie in schöner Vektorgrafik erken- 
nen, was Ihr Droid gerade sieht 
(allerdings nicht ruckfrei). 

Ganz unten links werden vier soge- 
nannte Rampaks angezeigt, die Ih- 
nen mitteilen, welche Programme 
Ihr Roboter gespeichert hat, wie 
„intelligent“ er also ist. 


MACHEN SIE IHREN DROIDEN 
SCHLAU! 


Wenn Sie den Feuerknopf des Joy- 
sticks das erste Mal benutzen, se- 


TEST 


_SERVICE 


| aktiv) 


hen Sie ein Fadenkreuz auf dem 
Sichtfenster des Roboters. Drük- 
ken Sie nun den Joystick nach vorn, 
so setzt sich der Droid nach vorn in 
Bewegung. Sie können ihn jetzt 
durch die Tür auf die Straße lenken. 
Doch halt, zuerst gilt es sich im Ge- 
bäude umzusehen. Also zuerst eine 
Drehung um 180 Grad, dann 
schräg nach links und durch die Tür 
in den Gang. Wieder halblinks 
durch die nächste Tür, und der 
Zentralcomputer wird sichtbar. 
Wenn Sie ihn berühren, können Sie 
sich ein Programm laden, das Sie 
ganz bestimmt brauchen werden. 
Sie können mit allen Robotern 

und Computern, die Sie antreffen, 
Programme (Rampaks) austau- 
schen. Das erste Programm, das Sie 
auf diese Weise erhalten, enthält 
die Passwörter für die Roboter, die 
Sie draußen antreffen werden. 
Wenn Sie dieses Programm aufru- 
fen, werden alle Passwörter ange- 
zeigt. Bevor Sie mit einem Roboter 
Programme tauschen wollen, müs- 
sen Sie das richtige Passwort ein- 
geben. 


JETZT GEHT’S LOS MIT DER 


DROIDENSUCHE 


Jetzt aber hinaus auf die Straße, 
denn es gilt, die Roboter von drau- 
ßen umzuprogrammieren. Wenn Sie 
Ihren Rat-Droiden auf die Straße 
gelenkt haben und sich nach Osten 
wenden, werden Sie einen der 
Blech-Meuterer sehen, der sich gera- 
de von Ihrem Standort entfernt. 
Also, nichts wie hinterher und ihn 
mit Ihrer Laserwaffe bewegungsun- 
fähig machen. Doch nicht zu stark 
schießen, sonst wird er zerstört. 
Wenn er paralysiert auf der Straße 
liegt, können Sie mit Ihrem Robo- 
ter heranfahren und Körperkontakt 
herstellen. Das Dialogfenster wird 
nun mit Nullen und Einzen über- 
flutet, als Zeichen, daß Sie ihn er- 
reicht haben. Dann muß das Pass- 
wort eingegeben werden (drei Ver- 
suche haben Sie), und Sie können 
mit dem Roboter Pgogramme aus- 
tauschen. So gibt es zum Beispiel 
ein Programm, das die Stadtüber- 
sicht in Punktform durch ein Radar- 
bild ersetzt, um weitere Roboter 
aufzuspüren. 


PROGRAMMTAUSCH IST 
KEINE RAUBKOPIE! 


Der Programmtausch hat noch ei- 


nen anderen Vorteil: Für den Fall, 
daß Ihr Rat-Droid von Wächterro- 
botern vernichtet wird, wären auch 
die bisher zur Verfügung stehenden 
Programme verloren. Doch wenn 


Sie die Programme auf mehrere un- 
ter Ihrer Kontrolle stehenden Ro- 
boter verteilt haben, rufen Sie ein- 
fach den nächsten auf, und schon 
geht es weiter. 

Haben Sie einen Roboter paraly- 
siert und beschädigt, macht das gar 
nichts. Nach einer gewissen Zeit 
setzt die Reparatur-Automatik ein 
und die Beschädigungen werden 
ausgebessert. Schade, daß das nicht 
im Alltag möglich ist! 


AUCH TELEPORTATION 
IST MÖGLICH! 


In der Stadt finden Sie mehrere 
Teleporterfelder, die zum schnellen 
Ortswechsel geeignet sind. Es ste- 
hen immer zwei Teleporter in fester 
Verbindung. Also ausprobieren! 
Achten Sie auf die Wächterroboter. 
Sie patrouillieren zu viert und ver- 
suchen, die Roboter unter Ihrer 
Kontrolle zu vernichten. Wenn Sie 
in ein Gebiet eindringen, wo die 
Wächter ihre Streifengänge machen, 
bringen Sie am besten alle Ihre 
Droiden auf einmal ins feindliche 
Gebiet. 

Ein paar Überraschungen birgt die- 
ses Spiel noch. Doch wir wollen 
hier nicht allzuviel verraten. Mit 
dem fliegenden Auge müssen Sie 
sich schon allein auseinandersetzen. 
Und noch ein Tip: Passen Sie auf, 
daß Ihre Roboter nicht ins Wasser 
fallen, denn meist sind sie nicht 
wasserdicht! 


CHOLO: EIN SPIEL DER 
SUPERKLASSE! 


Wenn Sie Spaß an Strategie- und 
Taktikspielen haben, bei denen sich 
die Lösung nicht gleich auf Anhieb 
anbietet, werden Sie den Erwerb 
des Programms nicht bereuen. Sie 
müssen eben ein wenig tüfteln. 
Auch wir sind nicht gleich beim er- 
sten Mal an das Ziel gekommen. 
Zur Kassette/Diskette gibt es ein 
umfangreiches deutsches Handbuch 
mit einer ausführlichen Bedienungs- 
anleitung nebst guter Erläuterung 
der Tastenbelegung. Des weiteren 
eine sehr aufschlußreiche Hinter- 
grundgeschichte, die Sie lesen soll- 
ten, bevor Sie mit dem Spiel begin- 
nen. Außerdem liegt noch der 
Stadtplan zur Orientierung bei. 

Die Kassettenversion kostet DM 
44,95, die Diskette DM 59,95. Wahr- 
lich nicht billig, dafür daürfen Sie 
schon etwas Besonderes erwarten. 
Sicher kann man über Geschmack 
streiten; mir jedenfalls hat dieses 
Spiel sehr gut gefallen! 
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Die Sport-Simulationen am Com- 
puter haben Hochkonjunktur. 
Immer neue Programme dieser Art 
drängen auf den Softwaremarkt 
und suchen Käufer. Im Programm- 
Paket ‚„‚Indoor-Sports’’ von Data- 
byte (Vertrieb: Ariolasoft) finden 
Sie vier Programme, mit denen 

Sie die Möglichkeit haben, ver- 
schiedene Sportarten in der 
„guten Stube’ zu betreiben. 


Diese vier Programme können sich 
sehen lassen. Neben gelungener gra- 
fischer Darstellung bieten sie die 
Möglichkeit, Geschicklichkeit und 
Reaktionsvermögen mit Spielpart- 
nern zu messen. Neben Bowling, 
Tischtennis und Pfeilewerfen wird 
wohl das Lufthockey besonders 
jugendliche Käufer begeistern. Alle 
vier sind schnelle Spiele, die ein 
geübtes Auge und eine schnelle 
Hand (am Joystick) verlangen. 


SPIELE FÜR VIER SPIELER, 
ABER NUR NACHEINANDER! 


Die Auswahl der Spiele erfolgt durch 
das Hauptmenü, das nach dem Start 
auf dem Bildschirm erscheint. Sie 
können zwar bis zu vier Spieler- 
namen eingeben. Spielen kann aber 
jeweils nur ein Spieler. Bei allen 
Programmen ist Ihr direkter Gegner 
immer der CPC. 


WERFEN SIE PFEILE 
MIT DEM JOYSTICK! 


Das erste Programm, das wir uns vor- 
genommen hatten, war das Pfeile- 
werfen (Dart): Wie beim ‚realen‘ 
Spiel müssen Sie die Felder treffen, 
die die meisten Punkte bringen. Vor 
dem Start können Sie in einem Me- 
nü verschiedene Einstellungen vor- 
nehmen: Länge des Spiels durch 
Zeitvorgabe, Zahl der Spiele und das 
en Ihres Gegners, also des 


Dann geht’s aber richtig los. Mit 
dem Joystick bestimmen Sie die Rich- 
tung des Pfeils, den Abwurfwinkel 
und die Geschwindigkeit. Nach dem 
Bildwechsel können Sie auf einer 
gut gemachten Grafik sehen, wie sich 
der Pfeil in Richtung Ziel bewegt. 
Alles gut gelungen und problemlos 
zu spielen. Beachten Sie aber eines: 
Je länger Sie zur Einstellung von Ab- 
wurfwinkel, Geschwindigkeit und 
Richtung benötigen, desto weniger 
Würfe können Sie in der vorher ein- 
gestellten Zeit ausführen. Und da ist 
= CPC dann auf jeden Fall schnel- 
er. 
Sehr schön wirkt auch der schrei- 
bende Stift, der laufend die Punkte- 


Indoor-Sports: 


BSTRADY 00.0 


zahl auf eine Art Tafel überträgt. 
Überall merkt man an Details, daß 
die Programmierer mit Liebe am 
Werk waren und Sinn für Feinhei- 
ten hatten. 


Kennen Sie Air-Hockey? Nicht? 
Dann lassen Sie sich überraschen. 
Bei diesem Spiel saust ein Riesen- 
puck über eine Art Billardtisch. An 
den gegenüberliegenden Seiten be- 
finden sich zwei Tore, in die der 
Puck geschossen wird. Sie müssen 
‚Ihre Scheibe so steuern, daß sie ins 


gegnerische Tor fliegt. Natürlich rea- 
giert auch der CPC sehr geschickt 
und schnell und versucht seinerseits, 
den Puck in Ihr Tor zu schießen. 
Ein schnelles Spiel, das dem Spieler 
viel Joystickakrobatik abverlangt. 
Allerdings kann man sich manchmal 
des Eindrucks nicht erwehren, daß 
auch sehr viel Zufall mit im Spiel 
ist. 

Trotzdem, auch bei diesem Spiel ge- 
fällt die grafische Gestaltung eben- 


so wie die Spielidee. Besonders junge 


Freaks werden daran ihre Freude 
haben. Während des Spiels ist ein 
ständiges Rauschen zu hören, das 
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wohl als Luftkissengeräusch ge- 
dacht ist. 


Die größten Anforderungen an den 
Umgang mit dem Joystick stellt 
zweifellos das dritte Spiel in dieser 
Sammlung. Es ist eine perfekte Si- 
mulation des Bowling. Auch hier 
können Sie wieder eine Reihe von 
Voreinstellungen ausführen. Vom 
Gewicht der Kugel über die Ge- 
schicklichkeit Ihres Gegners bis zur 
Zahl der Durchgänge, die bis zum 
Spielende zu absolvieren sind. 
Wenn Sie zum ersten Wurf ausho- 
len, müssen Sie darauf achten, die 
Bahn nicht zu berühren. Läuft Ihr 
Männlein zu weit vor, stößt es an 
die Schnur, die die Bahn vom An- 
lauf trennt und faßt sich mit 
schmerzverzerrtem Gesicht an den 
Fuß. Gelingt es Ihnen nicht, die 
Bowling-Kugel im richtigen Augen- 
blick durch Druck auf den Feuer- 
knopf loszulassen, fällt der Kleine 
der Länge nach hin. Das sieht 

zwar sehr lustig aus, bringt Ihnen 
jedoch keine Punkte ein. 

Mit dem Joystick können Sie auch 
die Richtung der Kugel bestimmen. 
Sie werden sicher ein paar Mal 
üben müssen, sonst läuft die Kugel 
in die seitliche Rinne und Sie schie- 
ben eine „Ratte‘“. 

Bei diesem Programm mußten wir 
am längsten rumprobieren, um den 
richtigen Dreh herauszubekommen 
und eine gute Serie zu absolvieren. 
Also, nicht gleich beim ersten Mal 
verzagen. Hier heißt es: Ohne Fleiß 
kein Preis! 


Das vierte Spiel heißt zwar Ping- 
Pong, aber Sie können auch richtiges 
Tischtennis spielen. Im Voreinstel- 
lungsmenü haben Sie die Wahl zwi- 
schen einer ganz einfachen Version 
(Ping-Pong) und eben Tischtennis 
im Turniermodus. 

Beim Ping-Pong brauchen Sie ledig- 
lich im richtigen Augenblick den 
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Von Databyte bei ariolasoft 


Feuerknopf zu drücken. Dann wird er t m w 

der Ball wieder zurückgespielt. D I G u ean & n = 

Die Positionierung des en he u mi = 

übernimmt das Programm. Wenn & f rs d 

Sie die schwierigere Version wählen, OD SG erne I 

müssen Sie auch den nn = = 3 

ken. Außerdem können Sie die Ge- En hi ht 

schicklichkeit bei den einzelnen SG ec en ın 2 Bue 


Schlagarten einstellen (Vorhand, 


Rückhand, Schmetterball usw.). findest dich auf der Fahrt nach ist wirklich was dran an diesen al- 
Den Tischtennisfans wird das Pro- Guade-City, um den sagenhaften ten Geschichten? Bald wirst Du es 
gramm sicher gefallen. Schatz zu bergen, der schon lange wissen, denn Dein Ziel ist nicht 

Daß der Aufschlagwechsel nach den auf Dich wartet. Aber wer weiß, mehr weit. 

Tischtennisregeln erfolgt, ist selbst- vielleicht hat der Alte auch dazu- Noch einmal nimmst Du die alte Kar- 
verständlich. Wie auch die anderen gedichtet oder übertrieben? Oder te zur Hand und studierst den Weg. 


Programme bietet ‚„‚Ping-Pong‘ eine 
gelungene grafische Gestaltung und 
garantiert ein schnelles Spiel. 


EIN GUTESH 


-ÜR SPORTFAN 


Für 49,94 DM (Diskette) oder 29.95 
DM (Kassette) erhalten Sie ein Pro- 
grammpaket, das durch gute drei- 
dimensionale Grafik ebenso gefällt 
wie durch die Schnelligkeit des Pro- 
grammablaufes. Auch die Farbge- 
bung ist gelungen. Der gute Menü- 
sound steht allerdings in krassem 
Gegensatz zu den sonstigen Geräu- 
schen. 

Es ist zwar vorgesehen, daß Sie sich 
einen Zwischenstand beim Spielen 
abspeichern und später wieder ein- 
laden können, wir hatten jedoch 
damit Schwierigkeiten: Bei der uns P a 
vorliegenden Diskettenversion schal- GAME: 00 JOJO 02: GOAL 
tete das Programm auf den Kasset- 
tenrekorderbetrieb um und forder- 
te auf: Press play and any key. n 
Leider funktionierte also beim 6128 Airhockey — bekannt aus den Spielsaloons 
diese Option nicht. 

Hatten wir wieder einmal eine feh- 
lerhafte Vorabversion erhalten oder 
liegt ein tatsächlicher Fehler vor? 
Obwohl wir Ariolasoft auf diesen 
Fehler aufmerksam machten, kam, 
trotz Zusage, keine Reaktion! 

Von dieser Einschränkung abgese- 
hen: Empfehlenswert! 


(JE) 


Wer träumt nicht davon, einmal im 
Leben einen Schatz zu finden, um 
dann dem Chef endlich mal die 
Meinung sagen zu können? 

Mit dem neuen Adventure von 
Ariolasoft haben Sie, zumindest am 
CPC, die Gelegenheit dazu. 
Schultern Sie also die Spitzhacke 
und reisen Sie ins Abenteuer! 


Von Deinem Großvater hast Du die 


Geschichte in Deiner Jugend oft ge- 
hört, und nun ist es soweit. Du be- Sturz beim Kegeln 
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Du weißt, es warten viele Prüfungen 
und Abenteuer auf Dich, denn viele 
vor Dir haben es ebenfalls probiert. 
Aber alle sind ums Leben gekom- 
men, nur Dein Großvater ist als ein- 
ziger von einer solchen Expedition 
zurückgekehrt. 

Langsam nähert sich der Zug seinem 
Ziel, der Dich zum Ausgangspunkt 
Deines Abenteuers bringt. Du bist 
der einzige Fahrgast, der aussteigt, 
denn keiner von den Einheimischen 
traut sich mehr in diese Gegend, die 
schon so viele Opfer gefordert hat. 
Plötzlich geht ein Ruck durch den 


Freundliche Begrüßung im Titelbild 


Zug; er hält! Das Abenteuer beginnt. 
Hoffentlich bist Du der Aufgabe 
gewachsen! 

Nach dieser Vorgeschichte, die Sie 
hoffentlich auf das Adventure einge- 
stimmt hat, können Sie nun die 
Diskette einlegen und starten. Das 
Startfile befindet sich auf der zwei- 
ten Seite. Nach dem Laden des Pro- 
gramms werden Sie aufgefordert, 
die erste Diskettenseite einzulegen 
und eine Taste zu drücken. Das er- 
ste Bild erscheint. Sie sehen zu- 
nächst den Bahnhof, den Sie soeben 
mit dem Zug erreicht haben. 


. Trotz eindrucksvollem Titelbild ein schlechtes Spiel 
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Gut die Hälfte des Schirms wird bei 
jedem Bild mit der grafischen Dar- 
stellung des jeweiligen Ortes, an 

dem Sie sich gerade befinden, ausge- 
füllt. Der Rest des Bildschirms dient 
als Dialogfenster. Darin sind Gegen- 
stände angezeigt, die Sie bei Be- 

darf aufnehmen können. Außerdem 
wird die Richtung benannt, in die 
Sie sich wenden können. Wenn Sie 
sich nach Osten bewegen wollen, ge- 
nügt als Eingabe ein „OÖ“, nach 
Westen ein „W“ und so weiter. Nicht 
gerade originell. Ich habe da schon 
bessere Lösungen erlebt. 

Die Kommunikation mit dem CPC 
erfolgt über Zwei-Wort-Sätze, also 
zum Beispiel: ‚„Hinlege Brett‘ oder 
„öffne Tür‘. Zur Eingabe reichen die 
ersten vier Buchstaben. 

Zu jeder Zeit im Programmablauf ha- 
ben Sie die Möglichkeit, sich die In- 
ventarliste, also das, was Sie gerade 
bei sich haben, zeigen zu lassen. Da- 
zu geben Sie „I“ ein. Beachten Sie, 
dafs Sie nur jeweils vier Gegenstände 
tragen können. Also gut abwägen, 
was Sie aufnehmen und was Sie even- 
tuell ablegen müssen. 


Im Programmlauf kann es schon ein- 
mal vorkommen, daß Sie wieder zu- 
rückgehen müssen, um einen Gegen- 
stand, den Sie nicht mehr zu brau- 
chen glaubten, zurück zu holen. 

Das Beste ist, Sie machen sich zu 
Anfang einen Plan als Orientierungs- 
hilfe. So behalten Sie stets die Über- 
sicht und wissen immer, wo Sie sich 
befinden. 


Manche Gegenstände sind in der 
Erde versteckt und Sie müssen da- 
nach graben. Dazu geben Sie „G“ 
ein. Aber Obacht: Manchmal genügt 
ein einmaliges Schaufeln nicht, da 
die Sachen tiefer liegen als üblich. 
Graben Sie vorsichtshalbe bei jedem 
Screen zweimal, dann können Sie 
sicher sein, nichts zu übersehen. 
Gerade die wichtigen Gegenstände 
sind sehr tief eingebuddelt! 

Das Spiel gliedert sich in zwei Teile. 
Der erste Teil befindet sich auf der 
Diskettenseite A und dient sozu- 
sagen der Zusammenstellung der 
Ausrüstung und der Beseitigung 
erster Hindernisse. So stehen Sie 
einmal an einer Brücke, die derart 
beschädigt ist, daß Sie ohne Hilfs- 
mittel nicht darüber hinweg gehen 
können. Da ist es gut, wenn Sie 

an einer anderen Stelle (den Weg 
hinter der Hütte weitergehen!) so 
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ganz zufällig ein Brett finden, mit 
dem Sie die Brücke wieder gangbar 
machen können. 

Oder Sie graben (zweimal!) in der 
Nähe einer Steinlawine und finden 
einen Schlüssel, der es Ihnen ermög- 
licht, die oben erwähnte Hütte zu 
öffnen. Sehen Sie sich darin um, 
ob Sie etwas Brauchbares finden. 
Sie müssen ständig darauf bedacht 
sein, die richtigen Hilfsmittel bei 
sich zu tragen, um jedem Problem 
gewachsen zu sein. 

Wenn Sie erst einmal am Eingang 
einer Mine sind, wird die B-Seite der 
Diskette eingelegt und hinein geht’s 
ins Dunkle. Hoffentlich haben Sie 
eine Lampe bei sich. Wenn nicht, 
werden Sie von zwei riesengroßen 
Augen beobachtet, die Sie im Dun- 
klen in die Irre führen werden. 
Auch sonst lauern noch genügend 
Gefahren auf Sie: Eine Bergspalte, 
in die Sie rutschen können und ver- 
hungern, ein Wasserfall, von dem 
Sie in die Tiefe gerissen werden. 
Oder, wie schon oben erwähnt, die 
Brücke, von der Sie abstürzen wer- 
den, wenn Sie nicht das Brett be- 
nutzen. 

Sie können übrigens auch den Spiel- 
stand abspeichern, wenn Sie das 
Spiel an einem Tag nicht zu Ende 
bringen wollen. Dann brauchen Sie 
beim nächsten Mal nicht wieder 
ganz von vorne anzufangen. Aber 
nehmen Sie dazu eine andere Dis- 
kette! 


JEDER SCREEN WIRD 
NACHGELADEN 


Das Spiel lag uns auf Diskette vor. 
Jedes Bild wird immer wieder neu 
eingeladen. Und da Sie ja auch 
rückwärts gehen können, ist eine 

== Teen auch nicht sinn- 
voll. 

Die Laderei (auch im Diskettenbe- 
trieb) bei jedem Bild ist auf die 
Dauer etwas störend; immer wieder 
läuft die Diskettenstation an und 
holt den nächsten Screen. 

Das Spiel selbst stellt keine besonde- 
ren Anforderungen an die Kombina- 
tionsgabe und das Vorstellungsver- 
mögen des Spielers. Die Zielgruppe 
die Ariolasoft im Auge hat, ist offen- 
sichtlich die der Neueinsteiger. Kein 
Vergleich zum Beispiel mit ‚‚Reisen- 
de im Wind“ oder ähnlichen Pro- 
grammen. Da liegen Welten dazwi- 
schen. Aber für den Anfang, für den 
Einstieg in dieses Genre, ist’s ganz 
nett. 


FAZIT: EMPFEHLENSWERT 


FÜR EINSTEIGER 


Das Spiel zeichnet sich durch gefäl- 


lige Grafik aus. Die Dialoge, die man 
mit dem CPC führt, sind, bedingt 
durch die Zwei-Wort-Sätze, manch- 
mal etwas stumpfsinnig. Die Bedie- 
nung ist sehr einfach, es ist keiner- 
lei besondere Tastenbelegung vor- 
handen. Leider fehlt jeglicher Sound, 
was den Eindruck des Spiels noch 
mehr schmälert. Die gestellten Auf- 
gaben sind relaiv leicht lösbar. 


(JE) 


STREET HAWK 


Nach Knight Rider und Miami Vice 
setzt die englische Firma Ocean 
eine weitere Fernsehserie zum 
Computerspiel um. Zwar sind die 
Folgen noch nicht in Deutschland 
zu sehen, doch über das Spiel 

läßt sich bereits urteilen. Der Test 
wurde mit einiger Spannung erwar- 
tet, waren doch die beiden Vor- 
gänger mit Recht als ‚‚Flops‘’ 

zu bezeichnen. 


POLIZIST MIT RACHE- 
GEDANKEN 


Bisher hat der Polizist Jesse Mach 
noch seinen ordinären Streifendienst 
auf dem Motorrad geschoben. Doch 
ein Anruf sollte sein Leben verän- 
dern: Norman Tuttle, ein erstklassi- 
ger Ingenieur bei der amerikani- 
schen Regierung, hat Jesse ausge- 
wählt, um am geheimen Motorrad- 
Projekt Street Hawk mitzuarbeiten. 
Als einer der besten Testpiloten 
scheint er wie geschaffen für diese 
Aufgabe. Als eines Tages jedoch sein 
bester Freund Marty von kriminel- 
len Elementen umgebracht wird, 
sinnt Jesse auf Rache. Hals über 
Kopf stürzt er sich in ein großes 
Abenteuer und bekämpft die Mächte 
des Bösen mit seiner ‚‚Street Hawk“, 
einer Maschine mit eingebautem 
Scanner, Lasergewehr und Turbo- 
boost; und dies alles ohne Aufpreis. 
Als Sonderleistung lassen sich mit- 
tels des Hyperthrust sogar 10 Meter 
weite Sprünge erledigen. 

Sie werden sicher schon erraten ha- 
ben, wer die Rolle des wagemuti- 
gen Helden zu übernehmen hat. 
Richtig, das ist Ihre Aufgabe. Ihr 
Motorrad befindet sich auf einer 
stark befahrenen Straße mit einigen 
kleinen Häuschen, die Sie aus der 
Vogelperspektive betrachten kön- 
nen. Am rechten und unteren Bild- 
schirmrand stehen einige Anzeigen 
zur Verfügung, die, wenn man sie zu 
deuten weiß, bei der Verbrechens- 
bekämpfung helfen. Da wird die Ge- 
schwindigkeit angegeben (maximal 
100 Meilen in der Stunde) und die 
verbleibende Kraft Ihres Schutz- 
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schildes, der Sie vor lästigen Ge- 
wehrkugeln und unbeteiligten Ver- 
kehrsteilnehmern bewahren soll. 
Ebenso wichtig ist die Anzeige, auf 
der Sie sehen, wie stark der Turbo- 
boost belastet ist und ob er über- 
haupt eingesetzt werden kann. 


SUPERTECHNIK MIT KLEINEN 
FEHLERN 


Die integrierte Laserkanone erhitzt 
sich bei allzu langem Gebrauch und 
gibt dann den Geist auf. So etwas 
kann natürlich vorkommen, aber 
sollten Sie gerade im Clinch mit 
einem Verbrecher sein, ist das mehr 
als unangenehm. Achten Sie sicher- 
heitshalber auf die Anzeige, um vor 
unliebsamen Überraschungen sicher 
zu sein. 

Ihr Motorrad kann sogar fliegen! 
Zwar nur Kurzstrecken, doch reicht 
das aus, um Autos zu überspringen. 
Auch dieses Kunststück kann nicht 
zu oft wiederholt werden, da sonst 
der „Hyperthrust‘“ nicht mehr rea- 
giert. Recht gewöhnlich mutet dage- 
gen eine Temperaturanzeige an, die 
verhindern soll, daß der Motor heiß- 
läuft. Es wäre mehr als peinlich, 
wenn Sie mit solch einer Superma- 
schine wegen eines Kolbenfressers 
liegenblieben. 


SPIELMOTIV: ABSCHIESSEN 


Ihre einzige Arbeit besteht darin, 
zwei Gangsterfahrzeuge zu verfolgen 
und mit dem Laser auszuschalten. 
Der Einfachheit halber wurden die 
Wagen schwarz und braun darge- 
stellt, so wie sich Verbrecher nun 
einmal anmalen. Auch unschuldige 
Verkehrsteilnehmer sind an ihrer 
Farbe zu erkennen. Wer auf rote 
oder grüne Passanten und Fahrzeuge 
schießt, riskiert eine Strafverfolgung 
durch die Polizei. Und wer dabei 
gar erwischt wird, der verliert sein 
(Spiel-)Leben. Der Scanner signali- 
siert jedoch rechtzeitig das Auftau- 
chen der Ordnungshüter, und mit 
dem Turboboost hat man sich 
schnell in Sicherheit gebracht. 
Haben Sie alle Ganoven auf der 
schnurgeraden Straße abgeschossen, 
dann geht es zur Abwechslung 

mal gegen einige Punker, die ver- 
zweifelt versuchen, zum Flucht- 
auto zu eilen; wahrscheinlich, weil 
Sie sie im Fadenkreuz haben. Soll- 
te Ihnen diese Jagd keine Schwierig- 
keiten bereitet haben, darf wieder 
einmal eine Limousine daran glau- 
ben, bis Sie schließlich auf der 
„Straße der Langeweile“ ins Level 3 
geraten. Für den nunmehr abzu- 
schießenden Porsche erhält man die 
Höchstzahl an Punkten, was aber 
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nicht heißen soll, daß Sie bei den 
anderen leer ausgehen: Ein simples 
Ganovenauto bringt 100 Punkte, 
die schwarze Limousine 1000 und 
der Porsche 5000. Eine Möglichkeit 
den Punktestand zusätzlich zu er- 
höhen, besteht im Abknallen der 
Scharfschützen, die Ihnen aus dem 
Gulli entgegenlinsen. 


SCHLECHTE GRAFIK, 
MISERABLER SOUND 


Genau genommen gab es schon lan- 


ge nicht mehr ein so langweiliges 
Computerspiel. Die Grafik ist bis 
auf die Autos und die Sektion, in 
der die Punker-Diebe via Faden- 
kreuz angeschossen werden müssen, 
hundsmiserabel. Man sieht fast im- 
mer die gleichen Häuser in schlech- 
ter Grafik an den Straßenrändern 
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stehen. Der Sound beschränkt sich 
auf eine kurze, sehr schlecht pro- 
grammierte Melodie am Anfang des 
Spiels. Das Piepsen einer Armband- 
uhr klingt angenehmer. Schußge- 
räusche des Lasers hören sich eher 
wie Telefonklingeln an. Wer unbe- 
dingt guten Sound bei Street Hawk 
haben möchte, der sollte sein Radio 
anstellen. 

Die Motivation ist sehr gering. Wer 
hat schon Lust, ständig auf einer 
langweiligen Straße herumzudüsen 
und braune oder schwarze Autos ab- 
zuknallen! Nach etwa 20 Minuten 
ist die Schmerzgrenze erreicht und 
die Kassette wird wieder ins Regal 
gestellt. 

Viel Freude kommt durch das Pro- 
gramm nicht auf, obwohl zumindest 
der Ansatz der Hintergrundstory 
recht vielversprechend klingt. Aber 
die Software ist genau wie Miami 
Vice und Knight Rider schnell und 
flüchtig gemacht. Was Schneider 
aktiv von der Spielidee hält, haben 
wir schon oft klargemacht: Sie ist 
schlicht und einfach stumpfsinnig. 
Sollte sich Street Hawk trotz allem 
gut verkaufen, wird dies letztendlich 
an der zu erwartenden Fernseh- 
Serie liegen. Dem Programm gebührt 
jedenfalls ein ‚‚nicht empfehlens- 
wert“. (GS/C. Borgmeier) 
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Wolfgang Hiller, 


Hardware Tempelhofer Damm 120 


1000 Berlin 42 
Am U.Bhf. Tempelhof 
Tel. 75220 91 


Software 
Zubehör 
Beratung 
Literatur 


COMPUTER DIVISION 


6078 Neu-Isenburg 


Modulare Software 
für alle Schneider Rechner 
CPC 464, CPC 664, CPC 6128 

Textverarbeitung ... Kassenbuch 
führung ... Rechnungsschreibung 
Kundenadreßverwaltung ... Mail- 
merge ... Hotelreservierung 


hard-&software 


Ch. Schebesta & Partner 
Frankfurter Str. 70 
6078 Neu-Isenburg 

Telefon 06102/37549 


6090 Rüsselsheim 


Computer u. Bürotechnik 
Dipl.-Ing. Neuderth 
Frankfurter Str. 23/Ecke Friedenspl. 


6090 Rüsselsheim 
Tel. 06142-68455 


7030 Böblingen 


Partner führender 
Micro-Computermarken 


NY 
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CENTER 
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Norbert Hlawinka 
Sindelfinger Allee 1, 
7030 Böblingen, Tel. 0 7031/22 60 15 


Ga Schneider ( 


7054 Korb 
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Computer + Software 
Winnender Str. 25, 7054 Korb 
Tel. 07151/325 13 


7700 Singen 
ni 

SUSI 
Ihr Fachhändler 


Marianne Tröndle 
Lindenstr. 3, 7700 Singen 


(Hohentwiel), Tel. 077 31/644 33 


7700 Singen 
Ihr kompetenter, autorisierter 
© SCHNEIDER-Fachhändler 


Srhellkammer 


Hard- u. Software, Peripherie, 
Literatur 
Fachkundige Beratung - kompletter 
Service 
7700 Singen, Freibühlstr. 21-25 
Tel. 07731/82020 


7980 Ravensburg 


expert 
Computer Grahle 
Eisenbahnstr. 33 
7980 Ravensburg 
Telefon 0751/15955 


8720 Schweinfurt 


Schneider PC 1512 
Schneider Zubehör 
Staubschutzhauben 
Anrufbeantworter 
Funktelefone 
Designtelefone 
Gesamtkatalog 3,— DM 


B. V. Steponaitis, 
Obere Straße 30, 8720 Schweinfurt 


VERDIENEN SIE GELD 
MIT IHREM COMPUTER! 


WIR ZAHLEN BIS ZU 1000DM! 


Haben Sie einen CPC 464 oder 664 ? Einen 6128 
Können Sie programmieren? In Basic oder 
Maschinensprache? Dann bietet SCHNEIDER AKTIV 
Ihnen die Möglichkeit, mit diesem Hobby Geld zu verdie- 
nen! 


Wie? Ganz einfach. Sie senden uns die Programme, 
die Sie für einen Abdruck als geeignet halten, zusammen 
mit einer Kurzbeschreibung, aus der auch die verwende- 
te Hardware — eventuelle Erweiterungen — benutzte Pe- 
ripherie — hervorgehen muß, ein. 


Benötigt werden: eine Datenkassette oder Diskette! 
Wenn die Redaktion sich überzeugt hat, daß dieses Pro- 
gramm läuft und sich zum Abdruck eignet, zahlen wir 
Ihnen pro Programm je nach Umfang bis zu DM 300, —! 


Name des Einsenders: 
Straße /Hausnr. /Tel.: 
PLZ/Ort: 


Für das ‚‚Listing des Monats‘‘ sogar DM 1.000,'—. 
Sie erhalten Ihre Kassette /Diskette selbstverständlich 

zurück, wenn Sie einen ausreichend frankierten 

Rückumschlag mit Ihrer Adresse beifügen. 


Bei der Einsendung müssen $ie mit Ihrer Unterschrift ga- 
rantieren, daß Sie der alleine Inhaber der Urheber-Rechte 
sind! Benutzen Sie bitte anhängendes Formular! (Wir 
weisen darauf hin, daß auch die Reaktion englische 
Fachzeitschriften liest und ‚‚umgestaltete‘‘ Programme 
ziemlich schnell erkennt). 


Um Ihnen die Arbeit zu erleichtern, finden Sie hier ein 
Formular. Sie können es ausschneiden oder fotokopie- 
ren. 


Hiermit biete ich Ihnen zum Abdruck folgende(s) Programm(e) an: 


Benötigte Geräte: 


Kassette Diskette 


Beigefügt Listings 


Ich versichere, der alleinige Urheber des Programms zu sein! 
Hiermit ermächtige ich die Redaktion, dieses Programm abzudrucken und wirtschaftlich zu verwerten. Sollte es in 
den Kassetten-Service aufgenommen werden, erhalte ich auch dafür eine entsprechende Vergütung. Das Copyright 


geht an den Verlag über. 


Rechtsverbindliche Unterschrift 


SCHNEIDER AKTIV 
PROGRAMM-REDAKTION 
POSTFACH 1161 

D-8044 UNTERSCHLEISSHEIM 


